diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-17 20:32:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-17 20:32:48 +0000 |
| commit | 36bad43a54a7c90a90f0ef3c464b4224dbc21068 (patch) | |
| tree | 99bbd4dca5f6c4e2e2b4d35c4a1aadeaea20009f /t | |
| parent | dba9804b7300df4006583cce1be339d524596cd9 (diff) | |
| download | perl-36bad43a54a7c90a90f0ef3c464b4224dbc21068.tar.gz | |
Add better debug to glob/basic #8 as suggested by Nicholas Clark
in 20001222.001.
p4raw-id: //depot/perl@10150
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/glob-basic.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t index 6c12c2624c..fe7f9ef32f 100755 --- a/t/lib/glob-basic.t +++ b/t/lib/glob-basic.t @@ -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"; |