Test state vars following padranges [Perl #121134]

1 files changed, 31 insertions, 1 deletions

diff --git a/t/op/state.t b/t/op/state.t
index ad51d8be67..b4542e1352 100644
--- a/t/op/state.t
+++ b/t/op/state.t
@@ -9,7 +9,7 @@ BEGIN {
 
 use strict;
 
-plan tests => 132;
+plan tests => 136;
 
 # Before loading feature.pm, test it with CORE::
 ok eval 'CORE::state $x = 1;', 'CORE::state outside of feature.pm scope';
@@ -416,6 +416,36 @@ foreach my $forbidden (<DATA>) {
     ok(defined $f, 'state init not skipped');
 }
 
+# [perl #121134] Make sure padrange doesn't mess with these
+{
+    sub thing {
+	my $expect = shift;
+        my ($x, $y);
+        state $z;
+
+        is($z, $expect, "State variable is correct");
+
+        $z = 5;
+    }
+
+    thing(undef);
+    thing(5);
+
+    sub thing2 {
+        my $expect = shift;
+        my $x;
+        my $y;
+        state $z;
+
+        is($z, $expect, "State variable is correct");
+
+        $z = 6;
+    }
+
+    thing2(undef);
+    thing2(6);
+}
+
 
 __DATA__
 state ($a) = 1;