This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add better debug to glob/basic #8 as suggested by Nicholas Clark
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 17 May 2001 20:32:48 +0000 (20:32 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 17 May 2001 20:32:48 +0000 (20:32 +0000)
in 20001222.001.

p4raw-id: //depot/perl@10150

t/lib/glob-basic.t

index 6c12c26..fe7f9ef 100755 (executable)
@@ -118,9 +118,10 @@ unless (@a == 3
         and $a[1] eq 'a'
         and $a[2] eq 'b')
 {
-    print "not ";
+    print "not ok 8 # @a";
+} else {
+    print "ok 8\n";
 }
-print "ok 8\n";
 
 # "~" should expand to $ENV{HOME}
 $ENV{HOME} = "sweet home";