summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/cygwin/lib/perl5/5.10/SelectSaver.pm
diff options
context:
space:
mode:
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/5.10/SelectSaver.pm')
-rw-r--r--chromium/third_party/cygwin/lib/perl5/5.10/SelectSaver.pm54
1 files changed, 0 insertions, 54 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/5.10/SelectSaver.pm b/chromium/third_party/cygwin/lib/perl5/5.10/SelectSaver.pm
deleted file mode 100644
index 1207b88a4a2..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/5.10/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;