diff options
Diffstat (limited to 'Master/tlpkg/tlperl.old/lib/SelectSaver.pm')
-rw-r--r-- | Master/tlpkg/tlperl.old/lib/SelectSaver.pm | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/Master/tlpkg/tlperl.old/lib/SelectSaver.pm b/Master/tlpkg/tlperl.old/lib/SelectSaver.pm deleted file mode 100644 index 1207b88a4a2..00000000000 --- a/Master/tlpkg/tlperl.old/lib/SelectSaver.pm +++ /dev/null @@ -1,54 +0,0 @@ -package SelectSaver; - -our $VERSION = '1.01'; - -=head1 NAME - -SelectSaver - save and restore selected file handle - -=head1 SYNOPSIS - - use SelectSaver; - - { - my $saver = new SelectSaver(FILEHANDLE); - # FILEHANDLE is selected - } - # previous handle is selected - - { - my $saver = new SelectSaver; - # new handle may be selected, or not - } - # previous handle is selected - -=head1 DESCRIPTION - -A C<SelectSaver> object contains a reference to the file handle that -was selected when it was created. If its C<new> method gets an extra -parameter, then that parameter is selected; otherwise, the selected -file handle remains unchanged. - -When a C<SelectSaver> is destroyed, it re-selects the file handle -that was selected when it was created. - -=cut - -require 5.000; -use Carp; -use Symbol; - -sub new { - @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]'; - my $fh = select; - my $self = bless \$fh, $_[0]; - select qualify($_[1], caller) if @_ > 1; - $self; -} - -sub DESTROY { - my $self = $_[0]; - select $$self; -} - -1; |