Deparse: handle \our @a

\our @a
was being deparsed as
\our(@a)

which incorrectly converts the \ from a scalar op to a list op

2 files changed, 6 insertions, 1 deletions

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index af64cd23f4..7fca6886d7 100644
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -1575,7 +1575,7 @@ sub maybe_local {
 	    if $self->{'avoid_local'}{$$op};
 	if ($need_parens) {
 	    return "$our_local($text)";
-	} elsif (want_scalar($op)) {
+	} elsif (want_scalar($op) || $our_local eq 'our') {
 	    return "$our_local $text";
 	} else {
 	    return $self->maybe_parens_func("$our_local", $text, $cx, 16);
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 983956d476..9c25007ea3 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -3039,3 +3039,8 @@ state @a :shared;
 state @b :shared = (1, 2);
 state %h :shared;
 state %i :shared = ('a', 1, 'b', 2);
+####
+# \our @a shouldn't be a list
+my $r = \our @a;
+my(@l) = \our((@b));
+@l = \our(@c, @d);