diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-04-28 08:57:54 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-04-28 08:57:54 +0000 |
| commit | 6b5da1a3dd326d0fe0f59ec1ea7b9b5d72b2a49e (patch) | |
| tree | b1a08a246949f6eaa2c13a854f21f79da587517c /lib/warnings.t | |
| parent | 24f59afc531955e5c3768c6023fb2ac247d6939d (diff) | |
| download | perl-6b5da1a3dd326d0fe0f59ec1ea7b9b5d72b2a49e.tar.gz | |
Use (file PerlIO::Layer 'perlio') rather than $Config{useperlio}
as gate on layer tests which fail on -Dusesfio
(ext/XS/Typemap/Typemap.t still fails on -Dusesfio)
p4raw-id: //depot/perlio@16245
Diffstat (limited to 'lib/warnings.t')
| -rw-r--r-- | lib/warnings.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index e61ffbde84..d6bd3740c0 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -31,7 +31,7 @@ my $files = 0; foreach my $file (@w_files) { next if $file =~ /(~|\.orig|,v)$/; - next if $file =~ /perlio$/ && !$Config{useperlio}; + next if $file =~ /perlio$/ && !(find PerlIO::Layer 'perlio'); open F, "<$file" or die "Cannot open $file: $!\n" ; my $line = 0; @@ -132,7 +132,7 @@ for (@prgs){ foreach my $option (split(' ', $1)) { if ($option eq 'regex') { # allow regular expressions $option_regex = 1; - } + } elsif ($option eq 'random') { # all lines match, but in any order $option_random = 1; } |