QuotedPrint.t

Message-Id: <4.2.0.58.20020710212608.02cd8100@mickey.dijkmat.nl>

p4raw-id: //depot/perl@17471

diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t
index 2ce9cfb..ee0f697 100644 (file)
--- 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' );