X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSelectSaver.pm;h=5f569222fcc5d0f497810d3b0baf19249d650946;hb=a223bd6128bafe323fc3be7c344f6b66aa25af02;hp=4c764bedcf14113b680933e06ac0da85f45ba01e;hpb=c07a80fdfe3926b5eb0585b674aa5d1f57b32ade;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/SelectSaver.pm b/lib/SelectSaver.pm
index 4c764be..5f56922 100644
--- a/lib/SelectSaver.pm
+++ b/lib/SelectSaver.pm
@@ -38,8 +38,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 {