diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm | 22 |
1 files changed, 0 insertions, 22 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 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; |
