[win32] yet another 'old' patch

	Message-Id: <199712040054.BAA04612@www.zweig.com>
	To: perl5-porters@perl.org
	Subject: Re: [PERL] buglet : minor but gratuitous inconsistency
		between `my' and `local' (Patch included)

p4raw-id: //depot/win32/perl@611

1 files changed, 2 insertions, 1 deletions

diff --git a/t/op/my.t b/t/op/my.t
index d439bebd86..1777e88266 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;
 }