Change PerlIO::Scalar and Via to scalar and via.

p4raw-id: //depot/perl@17454

2 files changed, 11 insertions, 11 deletions

diff --git a/lib/PerlIO/Via/QuotedPrint.pm b/lib/PerlIO/via/QuotedPrint.pm
index ab3448d469..3acf45c3fd 100644
--- a/lib/PerlIO/Via/QuotedPrint.pm
+++ b/lib/PerlIO/via/QuotedPrint.pm
@@ -1,10 +1,10 @@
-package PerlIO::Via::QuotedPrint;
+package PerlIO::via::QuotedPrint;
 
 # Make sure we do things by the book
 # Set the version info
 
 use strict;
-$PerlIO::Via::QuotedPrint::VERSION = 0.01;
+$PerlIO::via::QuotedPrint::VERSION = 0.01;
 
 # Make sure the encoding/decoding stuff is available
 
@@ -53,16 +53,16 @@ __END__
 
 =head1 NAME
 
-PerlIO::Via::QuotedPrint - PerlIO layer for quoted-printable strings
+PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
 
 =head1 SYNOPSIS
 
- use PerlIO::Via::QuotedPrint;
+ use PerlIO::via::QuotedPrint;
 
- open( my $in,'<Via(PerlIO::Via::QuotedPrint)','file.qp' )
+ open( my $in,'<Via(PerlIO::via::QuotedPrint)','file.qp' )
   or die "Can't open file.qp for reading: $!\n";
  
- open( my $out,'>Via(PerlIO::Via::QuotedPrint)','file.qp' )
+ open( my $out,'>Via(PerlIO::via::QuotedPrint)','file.qp' )
   or die "Can't open file.qp for writing: $!\n";
 
 =head1 DESCRIPTION
@@ -73,8 +73,8 @@ from a handle, and it will encode as quoted-printable while writing to a handle.
 
 =head1 SEE ALSO
 
-L<PerlIO::Via>, L<MIME::QuotedPrint>, L<PerlIO::Via::Base64>, L<PerlIO::Via::MD5>,
-L<PerlIO::Via::StripHTML>.
+L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>, L<PerlIO::via::MD5>,
+L<PerlIO::via::StripHTML>.
 
 =head1 COPYRIGHT
 
diff --git a/lib/PerlIO/Via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t
index 59d1363534..c1367c0412 100644
--- a/lib/PerlIO/Via/t/QuotedPrint.t
+++ b/lib/PerlIO/via/t/QuotedPrint.t
@@ -9,7 +9,7 @@ BEGIN {
 
 use Test::More tests => 11;
 
-BEGIN { use_ok('PerlIO::Via::QuotedPrint') }
+BEGIN { use_ok('PerlIO::via::QuotedPrint') }
 
 my $decoded = <<EOD;
 This is a tést for quoted-printable text that has hàrdly any speçial characters
@@ -25,7 +25,7 @@ EOD
 # Create the encoded test-file
 
 ok(
- open( my $out,'>:Via(PerlIO::Via::QuotedPrint)', $file ),
+ open( my $out,'>:via(PerlIO::via::QuotedPrint)', $file ),
  "opening '$file' for writing"
 );
 
@@ -44,7 +44,7 @@ ok( close( $test ),			'close test handle' );
 # Check decoding _with_ layers
 
 ok(
- open( my $in,'<:Via(PerlIO::Via::QuotedPrint)', $file ),
+ open( my $in,'<:via(PerlIO::via::QuotedPrint)', $file ),
  "opening '$file' for reading"
 );
 is( $decoded,join( '',<$in> ),		'check decoding' );