X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/0e06870bf080a38cda51c06c6612359afc2334e1..f83c6033e71dad81af816912dd321593b6987890:/lib/SelectSaver.pm

diff --git a/lib/SelectSaver.pm b/lib/SelectSaver.pm
index 08104f4..b67adff 100644
--- a/lib/SelectSaver.pm
+++ b/lib/SelectSaver.pm
@@ -1,6 +1,6 @@
 package SelectSaver;
 
-our $VERSION = '1.00';
+our $VERSION = '1.02';
 
 =head1 NAME
 
@@ -11,13 +11,13 @@ SelectSaver - save and restore selected file handle
     use SelectSaver;
 
     {
-       my $saver = new SelectSaver(FILEHANDLE);
+       my $saver = SelectSaver->new(FILEHANDLE);
        # 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
@@ -39,16 +39,16 @@ use Carp;
 use Symbol;
 
 sub new {
-    @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]';
+    @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
     my $fh = select;
-    my $self = bless [$fh], $_[0];
+    my $self = bless \$fh, $_[0];
     select qualify($_[1], caller) if @_ > 1;
     $self;
 }
 
 sub DESTROY {
-    my $this = $_[0];
-    select $$this[0];
+    my $self = $_[0];
+    select $$self;
 }
 
 1;