Fix repl_wantarray
authorSean O'Rourke <seano@cpan.org>
Mon, 23 Apr 2012 06:52:56 +0000 (23 00:52 -0600)
committerSean O'Rourke <seano@cpan.org>
Mon, 23 Apr 2012 06:52:56 +0000 (23 00:52 -0600)
lib/Sepia.pm

index d21f3bd..3285622 100644 (file)
@@ -1433,8 +1433,12 @@ sub as_boolean
 
 sub repl_wantarray
 {
-    $WANTARRAY = shift || $WANTARRAY;
-    $WANTARRAY = '' unless $WANTARRAY eq '@' || $WANTARRAY eq '$';
+    (my $val = $_[0]) =~ s/\s+//g;
+    if ($val eq '') {
+        $WANTARRAY = ($WANTARRAY eq '@' ? '$' : '@');
+    } else {
+        $WANTARRAY = $val ? '@' : '$';
+    }
 }
 
 sub repl_package