diff options
author | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
---|---|---|
committer | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
commit | f56e05005c751822074f0a22aa9a98d2eb189924 (patch) | |
tree | e28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/lib/SelectSaver.pm | |
parent | 344ddc14973a1519f100f54051dcb068069fe43c (diff) | |
download | FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz |
Perl is no longer in base. Long live the port!
Diffstat (limited to 'contrib/perl5/lib/SelectSaver.pm')
-rw-r--r-- | contrib/perl5/lib/SelectSaver.pm | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/contrib/perl5/lib/SelectSaver.pm b/contrib/perl5/lib/SelectSaver.pm deleted file mode 100644 index 5f56922..0000000 --- a/contrib/perl5/lib/SelectSaver.pm +++ /dev/null @@ -1,52 +0,0 @@ -package SelectSaver; - -=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 $this = $_[0]; - select $$this[0]; -} - -1; |