X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fmy.t;h=6a477db2bf1fdf972993efdf8407f359ab00f42c;hb=21fa6956243df9cb622bebfa0934ea7923519b4f;hp=d219f808526e09e1cb95d66da0c1bd61d0b302bd;hpb=f97d6588554acc8b88e745a23fe1f1d5fd04dfae;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/my.t b/t/op/my.t
index d219f80..6a477db 100755
--- a/t/op/my.t
+++ b/t/op/my.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..34\n";
+print "1..36\n";
 
 sub foo {
     my($a, $b) = @_;
@@ -120,3 +120,13 @@ eval { foo3(); foo3(); };
 print "not " if $@;
 print "ok 34\n";
 
+# my $foo = undef should always assign [perl #37776]
+{
+    my $count = 35;
+    loop:
+    my $test = undef;
+    print "not " if defined $test;
+    print "ok $count\n";
+    $test = 42;
+    goto loop if ++$count < 37;
+}