1 files changed, 5 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t
index 582ffa7905..9ab6831859 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -368,6 +368,11 @@ EXPECT
 1
 2
 ########
+-w
+sub testme { my $a = "test"; { local $a = "new test"; print $a }}
+EXPECT
+Can't localize lexical variable $a at - line 2.
+########
 package X;
 sub ascalar { my $r; bless \$r }
 sub DESTROY { print "destroyed\n" };