diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2003-12-03 02:44:40 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2003-12-03 02:44:40 +0000 |
| commit | 0121b80e4f69c2ad9631e8d20b5c91f3b2a40434 (patch) | |
| tree | 49a8ade446c1b6277c06982988700467e1be139c /gnu/usr.bin/perl/lib/warnings.t | |
| parent | 184128d6fb928711cdef9d8e6980dc6601fb1f87 (diff) | |
perl 5.8.2 from CPAN
Diffstat (limited to 'gnu/usr.bin/perl/lib/warnings.t')
| -rw-r--r-- | gnu/usr.bin/perl/lib/warnings.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/warnings.t b/gnu/usr.bin/perl/lib/warnings.t index 8e57a6db599..0647b552f4f 100644 --- a/gnu/usr.bin/perl/lib/warnings.t +++ b/gnu/usr.bin/perl/lib/warnings.t @@ -40,6 +40,7 @@ foreach my $file (@w_files) { next if $file =~ /(~|\.orig|,v)$/; next if $file =~ /perlio$/ && !(find PerlIO::Layer 'perlio'); + next if -d $file; open F, "<$file" or die "Cannot open $file: $!\n" ; my $line = 0; @@ -58,7 +59,7 @@ foreach my $file (@w_files) { undef $/; -print "1..", scalar(@prgs)-$files, "\n"; +print "1.." . (scalar(@prgs)-$files) . "\n"; for (@prgs){ @@ -181,7 +182,7 @@ for (@prgs){ print STDERR "GOT:\n$results\n"; print "not "; } - print "ok ", ++$i, "\n"; + print "ok " . ++$i . "\n"; foreach (@temps) { unlink $_ if $_ } foreach (@temp_path) |