From 286c24501622bb04218aacee2c040bd44becbaa1 Mon Sep 17 00:00:00 2001
From: Sean O'Rourke <seano@cpan.org>
Date: Mon, 23 Apr 2012 00:52:56 -0600
Subject: [PATCH] Fix repl_wantarray

---
 lib/Sepia.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/Sepia.pm b/lib/Sepia.pm
index d21f3bd..3285622 100644
--- a/lib/Sepia.pm
+++ b/lib/Sepia.pm
@@ -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
-- 
2.11.4.GIT