From ed006a8eb44831189e152826c692330d0a0cfe3b Mon Sep 17 00:00:00 2001 From: Manuel Traut Date: Mon, 18 Jul 2011 14:00:12 +0200 Subject: delete beagle-dir Signed-off-by: Manuel Traut --- .../usr/share/perl/5.10.1/SelectSaver.pm | 22 ---------------------- 1 file changed, 22 deletions(-) delete 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 deleted file mode 100644 index 4ccb837..0000000 --- a/beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm +++ /dev/null @@ -1,22 +0,0 @@ -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