1 files changed, 22 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm
new file mode 100644
index 0000000..4ccb837
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm
@@ -0,0 +1,22 @@
+package SelectSaver;
+
+our $VERSION = '1.02';
+
+require 5.000;
+use Carp;
+use Symbol;
+
+sub new {
+    @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
+    my $fh = select;
+    my $self = bless \$fh, $_[0];
+    select qualify($_[1], caller) if @_ > 1;
+    $self;
+}
+
+sub DESTROY {
+    my $self = $_[0];
+    select $$self;
+}
+
+1;