avoid "will not stay shared" warnings for our variables (from

Robin Barker)

p4raw-id: //depot/perl@5965

1 files changed, 11 insertions, 0 deletions

diff --git a/t/pragma/warn/op b/t/pragma/warn/op
index 1a79b4ad23..32f66dc5c1 100644
--- a/t/pragma/warn/op
+++ b/t/pragma/warn/op
@@ -150,6 +150,17 @@ EXPECT
 # op.c
 use warnings 'closure' ;
 sub x {
+      our $x;
+      sub y {
+         $x
+      }
+   }
+EXPECT
+
+########
+# op.c
+use warnings 'closure' ;
+sub x {
       my $x;
       sub y {
          sub { $x }