Change 13800 by jhi@alpha on 2001/12/19 14:12:02
Subject: Re: [PATCH] ...while $var = glob(...)
From: Robin Houston <[EMAIL PROTECTED]>
Date: Wed, 19 Dec 2001 13:48:55 +0000
Message-ID: <[EMAIL PROTECTED]>
Not exactly a glob test but internal-logically correct.
Affected files ...
.... //depot/perl/t/op/glob.t#19 edit
Differences ...
==== //depot/perl/t/op/glob.t#19 (xtext) ====
Index: perl/t/op/glob.t
--- perl/t/op/glob.t.~1~ Wed Dec 19 07:15:05 2001
+++ perl/t/op/glob.t Wed Dec 19 07:15:05 2001
@@ -5,7 +5,7 @@
@INC = '../lib';
}
-print "1..8\n";
+print "1..9\n";
@oops = @ops = <op/*>;
@@ -58,3 +58,10 @@
my $ok = "not ok 8\n";
$ok = "ok 8\n" while my $var = glob("0");
print $ok;
+
+# The formerly-broken test for the situation above would accidentally
+# test definedness for an assignment with a LOGOP on the right:
+my $f=0;
+$ok="ok 9\n";
+$ok="not ok 9\n", undef $f while $x = $f||$f;
+print $ok
End of Patch.
