diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-13 15:22:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-13 15:22:38 +0000 |
| commit | c4d88abd0953e77568d8da9de5cc9fc9a0f13fc6 (patch) | |
| tree | 1a07e4ae1b08db31a8dccb4d35f7d89ddc50a2d9 /ext | |
| parent | b4581f097130417ce397d3283decd4cd6b448ce9 (diff) | |
| download | perl-c4d88abd0953e77568d8da9de5cc9fc9a0f13fc6.tar.gz | |
More PerlIO warnings changes.
p4raw-id: //depot/perl@21209
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/PerlIO/t/fail.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/PerlIO/t/fail.t b/ext/PerlIO/t/fail.t index 801793de80..56e3d1d5a5 100644 --- a/ext/PerlIO/t/fail.t +++ b/ext/PerlIO/t/fail.t @@ -23,7 +23,7 @@ $warn = ''; $! = 0; ok(!binmode(FH,":-)"),"All punctuation fails binmode"); print "# $!\n"; isnt($!,0,"Got errno"); -like($warn,qr/in layer/,"Got warning"); +like($warn,qr/in PerlIO layer/,"Got warning"); $warn = ''; $! = 0; ok(!binmode(FH,":nonesuch"),"Bad package fails binmode"); @@ -36,7 +36,7 @@ $warn = ''; $! = 0; ok(!open(FH,"<:-)",$file),"All punctuation fails open"); print "# $!\n"; isnt($!,"","Got errno"); -like($warn,qr/in layer/,"Got warning"); +like($warn,qr/in PerlIO layer/,"Got warning"); $warn = ''; $! = 0; ok(!open(FH,"<:nonesuch",$file),"Bad package fails open"); |