From 5238ad5a0c4a9e1c8cd036f5de4055e39bd71297 Mon Sep 17 00:00:00 2001
From: Manuel Traut <manut@mecka.net>
Date: Fri, 29 Apr 2011 09:09:27 +0200
Subject: added debootstrap stuff

Signed-off-by: Manuel Traut <manut@mecka.net>
---
 .../usr/share/perl/5.10.1/SelectSaver.pm           | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm

(limited to 'beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm')

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;
-- 
cgit v1.2.3