diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-25 19:02:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-25 19:02:41 +0000 |
| commit | 4fadf1414e8381ec3bc020d977d7da8075f35c00 (patch) | |
| tree | aebbad169a9bc31c3d1a42498e8a00399b4c7a31 /lib/warnings.t | |
| parent | 72feb90e49815411a26e8ac14538a19467086d40 (diff) | |
| download | perl-4fadf1414e8381ec3bc020d977d7da8075f35c00.tar.gz | |
If no perlio no perlio warnings, either.
p4raw-id: //depot/perl@15500
Diffstat (limited to 'lib/warnings.t')
| -rw-r--r-- | lib/warnings.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index d952906dfe..e61ffbde84 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -31,6 +31,7 @@ my $files = 0; foreach my $file (@w_files) { next if $file =~ /(~|\.orig|,v)$/; + next if $file =~ /perlio$/ && !$Config{useperlio}; open F, "<$file" or die "Cannot open $file: $!\n" ; my $line = 0; |