From b4581f097130417ce397d3283decd4cd6b448ce9 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 13 Sep 2003 11:15:40 +0000 Subject: The "perlio: " prefix looks a little odd in the few warning/error messages, since no other 'subsystems' have prefixes. p4raw-id: //depot/perl@21208 --- t/io/open.t | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 't') diff --git a/t/io/open.t b/t/io/open.t index 90305bd1be..e71d2ec3c5 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -286,19 +286,19 @@ SKIP: { local $SIG{__WARN__} = sub { $w = shift }; eval { open(F, ">>>", "afile") }; - like($w, qr/perlio: invalid separator character '>' in layer spec/, + like($w, qr/Invalid separator character '>' in PerlIO layer spec/, "bad open (>>>) warning"); like($@, qr/Unknown open\(\) mode '>>>'/, "bad open (>>>) failure"); eval { open(F, ">:u", "afile" ) }; - like($w, qr/perlio: unknown layer "u"/, + like($w, qr/Unknown PerlIO layer "u"/, 'bad layer ">:u" warning'); eval { open(F, "<:u", "afile" ) }; - like($w, qr/perlio: unknown layer "u"/, + like($w, qr/Unknown PerlIO layer "u"/, 'bad layer "<:u" warning'); - eval { open(F, ":u", "afile" ) }; - like($@, qr/Unknown open\(\) mode ':u'/, - 'bad layer ":u" failure'); + eval { open(F, ":c", "afile" ) }; + like($@, qr/Unknown open\(\) mode ':c'/, + 'bad layer ":c" failure'); } -- cgit v1.2.1