X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fmy.t;h=1777e88266bc07d572f7e9bcd5a39f08708084e2;hb=0f5d15d614a56a8b655f35e4e8c6a0dba34da106;hp=d439bebd86b7a9344ac4195e1cb07f0e7987a362;hpb=cdaebead333273a920fe10cbcb2213a9fbefa241;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/my.t b/t/op/my.t
index d439beb..1777e88 100755
--- a/t/op/my.t
+++ b/t/op/my.t
@@ -10,7 +10,8 @@ sub foo {
     my $d;
     $c = "ok 3\n";
     $d = "ok 4\n";
-    { my($a,$c) = ("ok 9\n", "ok 10\n"); ($x, $y) = ($a, $c); }
+    { my($a, undef, $c) = ("ok 9\n", "not ok 10\n", "ok 10\n");
+      ($x, $y) = ($a, $c); }
     print $a, $b;
     $c . $d;
 }