diff options
| author | Elizabeth Mattijsen <liz@dijkmat.nl> | 2002-07-10 23:29:54 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-10 20:27:07 +0000 |
| commit | 9445987af6d20138e3b457bb627256972b72951a (patch) | |
| tree | 2c88c9f6b6c7c0779ce7abf1fea8b8792f0f668a /lib/PerlIO | |
| parent | 385e1f9fd66a9146b7463c05d27e5028541ba2f1 (diff) | |
| download | perl-9445987af6d20138e3b457bb627256972b72951a.tar.gz | |
QuotedPrint.t
Message-Id: <4.2.0.58.20020710212608.02cd8100@mickey.dijkmat.nl>
p4raw-id: //depot/perl@17471
Diffstat (limited to 'lib/PerlIO')
| -rw-r--r-- | lib/PerlIO/via/t/QuotedPrint.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t index 2ce9cfb0fc..ee0f697cfb 100644 --- a/lib/PerlIO/via/t/QuotedPrint.t +++ b/lib/PerlIO/via/t/QuotedPrint.t @@ -51,7 +51,7 @@ ok( close( $test ), 'close test handle' ); # Check decoding _with_ layers ok( - open( my $in,'<:via(PerlIO::via::QuotedPrint)', $file ), + open( my $in,'<:via(QuotedPrint)', $file ), "opening '$file' for reading" ); is( $decoded,join( '',<$in> ), 'check decoding' ); |