Patch: Put local($^I, @ARGV) = ... trick back into perlfaq5

[p5sagit/p5-mst-13.2.git] / lib / SelectSaver.pm

diff --git a/lib/SelectSaver.pm b/lib/SelectSaver.pm
index 4c764be..08104f4 100644 (file)
--- a/lib/SelectSaver.pm
+++ b/lib/SelectSaver.pm
@@ -1,5 +1,7 @@
 package SelectSaver;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 SelectSaver - save and restore selected file handle
@@ -38,8 +40,10 @@ use Symbol;
 
 sub new {
     @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]';
-    my $fh = (@_ > 1) ? (select qualify($_[1], caller)) : select;
-    bless [$fh], $_[0];
+    my $fh = select;
+    my $self = bless [$fh], $_[0];
+    select qualify($_[1], caller) if @_ > 1;
+    $self;
 }
 
 sub DESTROY {