This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perlapi: Place in dictionary sort order
[perl5.git]
/
lib
/
SelectSaver.pm
diff --git
a/lib/SelectSaver.pm
b/lib/SelectSaver.pm
index
08104f4
..
b67adff
100644
(file)
--- a/
lib/SelectSaver.pm
+++ b/
lib/SelectSaver.pm
@@
-1,6
+1,6
@@
package SelectSaver;
package SelectSaver;
-our $VERSION = '1.0
0
';
+our $VERSION = '1.0
2
';
=head1 NAME
=head1 NAME
@@
-11,13
+11,13
@@
SelectSaver - save and restore selected file handle
use SelectSaver;
{
use SelectSaver;
{
- my $saver =
new SelectSaver
(FILEHANDLE);
+ my $saver =
SelectSaver->new
(FILEHANDLE);
# FILEHANDLE is selected
}
# previous handle is selected
{
# FILEHANDLE is selected
}
# previous handle is selected
{
- my $saver =
new SelectSaver
;
+ my $saver =
SelectSaver->new
;
# new handle may be selected, or not
}
# previous handle is selected
# new handle may be selected, or not
}
# previous handle is selected
@@
-39,16
+39,16
@@
use Carp;
use Symbol;
sub new {
use Symbol;
sub new {
- @_ >= 1 && @_ <= 2 or croak 'usage:
new SelectSaver [FILEHANDLE]
';
+ @_ >= 1 && @_ <= 2 or croak 'usage:
SelectSaver->new( [FILEHANDLE] )
';
my $fh = select;
my $fh = select;
- my $self = bless
[$fh]
, $_[0];
+ my $self = bless
\$fh
, $_[0];
select qualify($_[1], caller) if @_ > 1;
$self;
}
sub DESTROY {
select qualify($_[1], caller) if @_ > 1;
$self;
}
sub DESTROY {
- my $
this
= $_[0];
- select $$
this[0]
;
+ my $
self
= $_[0];
+ select $$
self
;
}
1;
}
1;