Change 13749: Third time lucky? (Re: [PATCH] ...while $var = glob(...))

[Jarkko Hietaniemi]

Change 13749 by jhi@alpha on 2001/12/18 13:55:12

        Subject: Third time lucky? (Re: [PATCH] ...while $var = glob(...))
        From: Robin Houston <[EMAIL PROTECTED]> 
        Date: Tue, 18 Dec 2001 14:54:33 +0000
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/t/op/glob.t#17 edit

Differences ...

==== //depot/perl/t/op/glob.t#17 (xtext) ====
Index: perl/t/op/glob.t
--- perl/t/op/glob.t.~1~        Tue Dec 18 07:00:05 2001
+++ perl/t/op/glob.t    Tue Dec 18 07:00:05 2001
@@ -5,7 +5,7 @@
     @INC = '../lib';
 }
 
-print "1..10\n";
+print "1..11\n";
 
 @oops = @ops = <op/*>;
 
@@ -60,6 +60,12 @@
 close F;
 
 my $ok = "not ok 9\n";
+
+# ... while ($var = glob(...)) should test definedness not truth
+
+my $ok = "not ok 11\n";
+$ok = "ok 11\n" while my $var = glob("0");
+print $ok;
 $ok = "ok 9\n" while my $var = glob("0");
 print $ok;
 
End of Patch.