Change PerlIO::Scalar and Via to scalar and via.
Jarkko Hietaniemi [Tue, 9 Jul 2002 21:31:44 +0000 (21:31 +0000)]
p4raw-id: //depot/perl@17454

23 files changed:
MANIFEST
Porting/config.sh
djgpp/config.over
doio.c
epoc/config.sh
ext/B/B/C.pm
ext/PerlIO/scalar/Makefile.PL [moved from ext/PerlIO/Scalar/Makefile.PL with 63% similarity]
ext/PerlIO/scalar/scalar.pm [moved from ext/PerlIO/Scalar/Scalar.pm with 67% similarity]
ext/PerlIO/scalar/scalar.xs [moved from ext/PerlIO/Scalar/Scalar.xs with 99% similarity]
ext/PerlIO/t/via.t
ext/PerlIO/via/Makefile.PL [moved from ext/PerlIO/Via/Makefile.PL with 66% similarity]
ext/PerlIO/via/via.pm [moved from ext/PerlIO/Via/Via.pm with 83% similarity]
ext/PerlIO/via/via.xs [moved from ext/PerlIO/Via/Via.xs with 99% similarity]
hints/uwin.sh
hints/vmesa.sh
lib/PerlIO/via/QuotedPrint.pm [moved from lib/PerlIO/Via/QuotedPrint.pm with 82% similarity]
lib/PerlIO/via/t/QuotedPrint.t [moved from lib/PerlIO/Via/t/QuotedPrint.t with 86% similarity]
perlio.c
pod/perldelta.pod
pod/perliol.pod
pod/perltoc.pod
win32/Makefile
win32/makefile.mk

index 5b9c3cf..1cab07f 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -531,17 +531,17 @@ ext/PerlIO/encoding/encoding.xs PerlIO::encoding
 ext/PerlIO/encoding/Makefile.PL PerlIO::encoding makefile writer
 ext/PerlIO/encoding/MANIFEST   PerlIO::encoding list of files
 ext/PerlIO/PerlIO.t            See if PerlIO works
-ext/PerlIO/Scalar/Makefile.PL  PerlIO layer for scalars
-ext/PerlIO/Scalar/Scalar.pm    PerlIO layer for scalars
-ext/PerlIO/Scalar/Scalar.xs    PerlIO layer for scalars
+ext/PerlIO/scalar/Makefile.PL  PerlIO layer for scalars
+ext/PerlIO/scalar/scalar.pm    PerlIO layer for scalars
+ext/PerlIO/scalar/scalar.xs    PerlIO layer for scalars
 ext/PerlIO/t/encoding.t                See if PerlIO encoding conversion works
 ext/PerlIO/t/fail.t            See if bad layers fail
 ext/PerlIO/t/fallback.t                See if PerlIO fallbacks work
-ext/PerlIO/t/scalar.t          See if PerlIO::Scalar works
-ext/PerlIO/t/via.t             See if PerlIO::Via works
-ext/PerlIO/Via/Makefile.PL     PerlIO layer for layers in perl
-ext/PerlIO/Via/Via.pm          PerlIO layer for layers in perl
-ext/PerlIO/Via/Via.xs          PerlIO layer for layers in perl
+ext/PerlIO/t/scalar.t          See if PerlIO::scalar works
+ext/PerlIO/t/via.t             See if PerlIO::via works
+ext/PerlIO/via/Makefile.PL     PerlIO layer for layers in perl
+ext/PerlIO/via/via.pm          PerlIO layer for layers in perl
+ext/PerlIO/via/via.xs          PerlIO layer for layers in perl
 ext/POSIX/hints/bsdos.pl       Hint for POSIX for named architecture
 ext/POSIX/hints/dynixptx.pl    Hint for POSIX for named architecture
 ext/POSIX/hints/freebsd.pl     Hint for POSIX for named architecture
@@ -1359,8 +1359,8 @@ lib/overload.pm                   Module for overloading perl operators
 lib/overload.t                 See if operator overloading works
 lib/perl5db.pl                 Perl debugging routines
 lib/PerlIO.pm                  PerlIO support module
-lib/PerlIO/Via/QuotedPrint.pm  PerlIO::Via::QuotedPrint
-lib/PerlIO/Via/t/QuotedPrint.t PerlIO::Via::QuotedPrint
+lib/PerlIO/via/QuotedPrint.pm  PerlIO::via::QuotedPrint
+lib/PerlIO/via/t/QuotedPrint.t PerlIO::via::QuotedPrint
 lib/ph.t                       See if h2ph works
 lib/Pod/Checker.pm             Pod-Parser - check POD documents for syntax errors
 lib/Pod/Find.pm                        used by pod/splitpod
index b74cbc2..f221572 100644 (file)
@@ -493,7 +493,7 @@ dlsrc='dl_dlopen.xs'
 doublesize='8'
 drand01='drand48()'
 drand48_r_proto='0'
-dynamic_ext='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar PerlIO/Via PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attrs re threads threads/shared'
+dynamic_ext='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/scalar PerlIO/via PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attrs re threads threads/shared'
 eagain='EAGAIN'
 ebcdic='undef'
 echo='echo'
@@ -508,7 +508,7 @@ endservent_r_proto='0'
 eunicefix=':'
 exe_ext=''
 expr='expr'
-extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar PerlIO/Via PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attrs re threads threads/shared Errno'
+extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/scalar PerlIO/via PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attrs re threads threads/shared Errno'
 extras=''
 fflushNULL='define'
 fflushall='undef'
@@ -676,7 +676,7 @@ issymlink='test -h'
 ivdformat='"ld"'
 ivsize='8'
 ivtype='long'
-known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar PerlIO/Via PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Thread Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attrs re threads threads/shared'
+known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/scalar PerlIO/via PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Thread Time/HiRes Unicode/Normalize XS/APItest XS/Typemap attrs re threads threads/shared'
 ksh=''
 ld='ld'
 lddlflags='-shared -expect_unresolved "*" -msym -std -s'
index 6967233..f385f55 100644 (file)
@@ -39,12 +39,12 @@ repair()
      -e 's/encode/Encode/'\
      -e 's=filter/util/call=Filter/Util/Call=' \
      -e 's=digest/md5=Digest/MD5=' \
-     -e 's=perlio/scalar=PerlIO/Scalar=' \
+     -e 's=perlio/scalar=PerlIO/scalar=' \
      -e 's=mime/base64=MIME/Base64=' \
      -e 's=time/hires=Time/HiRes=' \
      -e 's=list/util=List/Util=' \
      -e 's=cwd=Cwd=' \
-     -e 's=perlio/via=PerlIO/Via=' \
+     -e 's=perlio/via=PerlIO/via=' \
      -e 's=perlio/encoding=PerlIO/encoding=' \
      -e 's=xs/apitest=XS/APItest=' \
      -e 's=xs/typemap=XS/Typemap=' \
diff --git a/doio.c b/doio.c
index 622778a..01d485b 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -546,8 +546,8 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
     }
 
     fd = PerlIO_fileno(fp);
-    /* If there is no fd (e.g. PerlIO::Scalar) assume it isn't a
-     * socket - this covers PerlIO::Scalar - otherwise unless we "know" the
+    /* If there is no fd (e.g. PerlIO::scalar) assume it isn't a
+     * socket - this covers PerlIO::scalar - otherwise unless we "know" the
      * type probe for socket-ness.
      */
     if (IoTYPE(io) && IoTYPE(io) != IoTYPE_PIPE && IoTYPE(io) != IoTYPE_STD && fd >= 0) {
@@ -596,7 +596,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
            }
        }
        if (savefd != fd) {
-           /* Still a small can-of-worms here if (say) PerlIO::Scalar
+           /* Still a small can-of-worms here if (say) PerlIO::scalar
               is assigned to (say) STDOUT - for now let dup2() fail
               and provide the error
             */
index a19e735..78b22ac 100644 (file)
@@ -487,7 +487,7 @@ endservent_r_proto='0'
 eunicefix=':'
 exe_ext=''
 expr='expr'
-extensions='Data/Dumper Digest/MD5 Errno Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode PerlIO/Scalar Socket Storable Sys/Hostname Unicode/Storable attrs re'
+extensions='Data/Dumper Digest/MD5 Errno Fcntl File/Glob Filter/Util/Call IO List/Util MIME/Base64 Opcode PerlIO/scalar Socket Storable Sys/Hostname Unicode/Storable attrs re'
 fflushNULL='undef'
 fflushall='define'
 find=''
index f1019f0..8d71bb2 100644 (file)
@@ -1309,7 +1309,7 @@ sub B::IO::save_data {
         GvSV( gv ) = sv;
     }
 CODE
-    # for PerlIO::Scalar
+    # for PerlIO::scalar
     $use_xsloader = 1;
     $init->add_eval( sprintf 'open(%s, "<", $%s)', $globname, $globname );
 }
similarity index 63%
rename from ext/PerlIO/Scalar/Makefile.PL
rename to ext/PerlIO/scalar/Makefile.PL
index 9d97e4a..11a9ee5 100644 (file)
@@ -1,7 +1,7 @@
 use ExtUtils::MakeMaker;
 WriteMakefile(
-       NAME            => "PerlIO::Scalar",
+       NAME            => "PerlIO::scalar",
        MAN3PODS    => {},  # Pods will be built by installman.
-       VERSION_FROM    => 'Scalar.pm',
+       VERSION_FROM    => 'scalar.pm',
 );
 
similarity index 67%
rename from ext/PerlIO/Scalar/Scalar.pm
rename to ext/PerlIO/scalar/scalar.pm
index e086032..d75d370 100644 (file)
@@ -1,13 +1,13 @@
-package PerlIO::Scalar;
+package PerlIO::scalar;
 our $VERSION = '0.01';
 use XSLoader ();
-XSLoader::load 'PerlIO::Scalar';
+XSLoader::load 'PerlIO::scalar';
 1;
 __END__
 
 =head1 NAME
 
-PerlIO::Scalar - support module for in-memory IO.
+PerlIO::scalar - support module for in-memory IO.
 
 =head1 SYNOPSIS
 
@@ -15,7 +15,7 @@ PerlIO::Scalar - support module for in-memory IO.
 
 =head1 DESCRIPTION
 
-C<PerlIO::Scalar> only exists to use XSLoader to load C code that provides
+C<PerlIO::scalar> only exists to use XSLoader to load C code that provides
 support for treating a scalar as an "in memory" file.
 
 All normal file operations can be performed on the handle. The scalar
similarity index 99%
rename from ext/PerlIO/Scalar/Scalar.xs
rename to ext/PerlIO/scalar/scalar.xs
index 5bbc119..f505c89 100644 (file)
@@ -264,7 +264,7 @@ PerlIOScalar_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags)
 
 PerlIO_funcs PerlIO_scalar = {
  sizeof(PerlIO_funcs),
- "Scalar",
+ "scalar",
  sizeof(PerlIOScalar),
  PERLIO_K_BUFFERED|PERLIO_K_RAW,
  PerlIOScalar_pushed,
@@ -296,7 +296,7 @@ PerlIO_funcs PerlIO_scalar = {
 
 #endif /* Layers available */
 
-MODULE = PerlIO::Scalar        PACKAGE = PerlIO::Scalar
+MODULE = PerlIO::scalar        PACKAGE = PerlIO::scalar
 
 PROTOTYPES: ENABLE
 
index 85f5b8e..d40e85e 100644 (file)
@@ -20,14 +20,14 @@ my $fh;
 my $a = join("", map { chr } 0..255) x 10;
 my $b;
 
-BEGIN { use_ok('PerlIO::Via::QuotedPrint'); }
+BEGIN { use_ok('PerlIO::via::QuotedPrint'); }
 
-ok( !open($fh,"<Via(PerlIO::Via::QuotedPrint)", $tmp), 'open QuotedPrint for input fails');
-ok(  open($fh,">Via(PerlIO::Via::QuotedPrint)", $tmp), 'open QuotedPrint for output');
+ok( !open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input fails');
+ok(  open($fh,">via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for output');
 ok( (print $fh $a), "print to output file");
 ok( close($fh), 'close output file');
 
-ok( open($fh,"<Via(PerlIO::Via::QuotedPrint)", $tmp), 'open QuotedPrint for input');
+ok( open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input');
 { local $/; $b = <$fh> }
 ok( close($fh), "close input file");
 
@@ -45,7 +45,7 @@ is($a, $b, 'compare original data with filtered version');
     print $fh "Hello\n";
     close($fh);
 
-    ok( ! open($fh,">Via(Unknown::Module)", $tmp), 'open Via Unknown::Module will fail');
+    ok( ! open($fh,">via(Unknown::Module)", $tmp), 'open via Unknown::Module will fail');
     like( $warnings, qr/^Cannot find package 'Unknown::Module'/,  'warn about unknown package' );
 
     # Now open normally again to see if we get right fileno
@@ -62,17 +62,17 @@ is($a, $b, 'compare original data with filtered version');
 
     $warnings = '';
     no warnings 'layer';
-    ok( ! open($fh,">Via(Unknown::Module)", $tmp), 'open Via Unknown::Module will fail');
+    ok( ! open($fh,">via(Unknown::Module)", $tmp), 'open via Unknown::Module will fail');
     is( $warnings, "",  "don't warn about unknown package" );
 }
 
 my $obj = '';
 sub Foo::PUSHED                        { $obj = shift; -1; }
-sub PerlIO::Via::Bar::PUSHED   { $obj = shift; -1; }
-open $fh, '<:Via(Foo)', "foo";
+sub PerlIO::via::Bar::PUSHED   { $obj = shift; -1; }
+open $fh, '<:via(Foo)', "foo";
 is( $obj, 'Foo', 'search for package Foo' );
-open $fh, '<:Via(Bar)', "bar";
-is( $obj, 'PerlIO::Via::Bar', 'search for package PerlIO::Via::Bar' );
+open $fh, '<:via(Bar)', "bar";
+is( $obj, 'PerlIO::via::Bar', 'search for package PerlIO::via::Bar' );
 
 END {
     1 while unlink $tmp;
similarity index 66%
rename from ext/PerlIO/Via/Makefile.PL
rename to ext/PerlIO/via/Makefile.PL
index d47ba93..deb401f 100644 (file)
@@ -1,7 +1,7 @@
 use ExtUtils::MakeMaker;
 WriteMakefile(
-       NAME            => "PerlIO::Via",
+       NAME            => "PerlIO::via",
        MAN3PODS    => {},  # Pods will be built by installman.
-       VERSION_FROM    => 'Via.pm',
+       VERSION_FROM    => 'via.pm',
 );
 
similarity index 83%
rename from ext/PerlIO/Via/Via.pm
rename to ext/PerlIO/via/via.pm
index 6c4cd48..cab00fa 100644 (file)
@@ -1,43 +1,43 @@
-package PerlIO::Via;
+package PerlIO::via;
 our $VERSION = '0.01';
 use XSLoader ();
-XSLoader::load 'PerlIO::Via';
+XSLoader::load 'PerlIO::via';
 1;
 __END__
 
 =head1 NAME
 
-PerlIO::Via - Helper class for PerlIO layers implemented in perl
+PerlIO::via - Helper class for PerlIO layers implemented in perl
 
 =head1 SYNOPSIS
 
-   use PerlIO::Via::Layer;
-   open($fh,"<:Via(Layer)",...);
+   use PerlIO::via::Layer;
+   open($fh,"<:via(Layer)",...);
 
    use Some::Other::Package;
-   open($fh,">:Via(Some::Other::Package)",...);
+   open($fh,">:via(Some::Other::Package)",...);
 
 =head1 DESCRIPTION
 
-The PerlIO::Via module allows you to develop PerlIO layers in Perl, without
+The PerlIO::via module allows you to develop PerlIO layers in Perl, without
 having to go into the nitty gritty of programming C with XS as the interface
 to Perl.
 
-One example module, L<PerlIO::Via::QuotedPrint>, is include with Perl
+One example module, L<PerlIO::via::QuotedPrint>, is include with Perl
 5.8.0, and more example modules are available from CPAN, such as
-L<PerlIO::Via::StripHTML> and L<PerlIO::Via::Base64>.  The
-PerlIO::Via::StripHTML for instance, allows you to say:
+L<PerlIO::via::StripHTML> and L<PerlIO::via::Base64>.  The
+PerlIO::via::StripHTML for instance, allows you to say:
 
-       use PerlIO::Via::StripHTML;
-       open( my $fh, "<:Via(StripHTML)", "index.html" );
+       use PerlIO::via::StripHTML;
+       open( my $fh, "<:via(StripHTML)", "index.html" );
         my @line = <$fh>;
 
 to obtain the text of an HTML-file in an array with all the HTML-tags
 automagically removed.
 
-Please note that if the layer is created in the PerlIO::Via:: namespace, it
-does B<not> have to be fully qualified.  The PerlIO::Via module will prefix
-the PerlIO::Via:: namespace if the specified modulename does not exist as a
+Please note that if the layer is created in the PerlIO::via:: namespace, it
+does B<not> have to be fully qualified.  The PerlIO::via module will prefix
+the PerlIO::via:: namespace if the specified modulename does not exist as a
 fully qualified module name.
 
 =head1 EXPECTED METHODS
@@ -45,8 +45,8 @@ fully qualified module name.
 To create a Perl module that implements a PerlIO layer in Perl (as opposed to
 in C using XS as the interface to Perl), you need to supply some of the
 following subroutines.  It is recommended to create these Perl modules in the
-PerlIO::Via:: namespace, so that they can easily be located on CPAN and use
-the default namespace feature of the PerlIO::Via module itself.
+PerlIO::via:: namespace, so that they can easily be located on CPAN and use
+the default namespace feature of the PerlIO::via module itself.
 
 Please note that this is an area of recent development in Perl and that the
 interface described here is therefor still subject to change (and hopefully
@@ -172,15 +172,15 @@ value of FILL or READ.
 
 =head1 EXAMPLES
 
-Check the PerlIO::Via:: namespace on CPAN for examples of PerlIO layers
+Check the PerlIO::via:: namespace on CPAN for examples of PerlIO layers
 implemented in Perl.  To give you an idea how simple the implementation of
 a PerlIO layer can look, as simple example is included here.
 
 =head2 Example - a Hexadecimal Handle
 
-Given the following module, PerlIO::Via::Hex.pm:
+Given the following module, PerlIO::via::Hex.pm:
 
-    package PerlIO::Via::Hex;
+    package PerlIO::via::Hex;
 
     sub PUSHED
     {
@@ -219,12 +219,12 @@ output to hexadecimal dump of the output bytes: for example "A" will
 be converted to "41" (on ASCII-based machines, on EBCDIC platforms
 the "A" will become "c1")
 
-    use PerlIO::Via::Hex;
-    open(my $fh, ">:Via(Hex)", "foo.hex");
+    use PerlIO::via::Hex;
+    open(my $fh, ">:via(Hex)", "foo.hex");
 
 and the following code will read the hexdump in and convert it
 on the fly back into bytes:
 
-    open(my $fh, "<:Via(Hex)", "foo.hex");
+    open(my $fh, "<:via(Hex)", "foo.hex");
 
 =cut
similarity index 99%
rename from ext/PerlIO/Via/Via.xs
rename to ext/PerlIO/via/via.xs
index fb6718d..0c24778 100644 (file)
@@ -137,7 +137,7 @@ PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg,
            s->stash = gv_stashpvn(pkg, pkglen, FALSE);
            if (!s->stash) {
                s->obj =
-                   newSVpvn(Perl_form(aTHX_ "PerlIO::Via::%s", pkg),
+                   newSVpvn(Perl_form(aTHX_ "PerlIO::via::%s", pkg),
                             pkglen + 13);
                SvREFCNT_dec(arg);
                s->stash = gv_stashpvn(SvPVX(s->obj), pkglen + 13, FALSE);
@@ -564,7 +564,7 @@ PerlIOVia_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * param,
 
 PerlIO_funcs PerlIO_object = {
  sizeof(PerlIO_funcs),
- "Via",
+ "via",
  sizeof(PerlIOVia),
  PERLIO_K_BUFFERED|PERLIO_K_DESTRUCT,
  PerlIOVia_pushed,
@@ -596,7 +596,7 @@ PerlIO_funcs PerlIO_object = {
 
 #endif /* Layers available */
 
-MODULE = PerlIO::Via   PACKAGE = PerlIO::Via
+MODULE = PerlIO::via   PACKAGE = PerlIO::via
 PROTOTYPES: ENABLE;
 
 BOOT:
index e5a09a6..c05d9eb 100644 (file)
@@ -24,7 +24,7 @@ i_utime=undef
 # compile/link flags
 ldflags=-g
 optimize=-g
-static_ext="B Data/Dumper Digest/MD5 Errno Fcntl Filter::Util::Call IO IPC/SysV MIME::Base64 Opcode PerlIO::Scalar POSIX SDBM_File Socket Storable Unicode::Normalize attrs re"
+static_ext="B Data/Dumper Digest/MD5 Errno Fcntl Filter::Util::Call IO IPC/SysV MIME::Base64 Opcode PerlIO::scalar POSIX SDBM_File Socket Storable Unicode::Normalize attrs re"
 #static_ext=none
 # dynamic loading needs work
 usedl=undef
index f0c0232..5fad22b 100644 (file)
@@ -316,7 +316,7 @@ sig_num_init='0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,2
 sizetype='size_t'
 so='.a'
 ssizetype='ssize_t'
-static_ext='Data/Dumper Digest/MD5 Fcntl Filter/Util/Call GDBM_File IO IPC/SysV List/Util MIME/Base64 NDBM_File Opcode PerlIO/Scalar POSIX Socket Storable Thread Time/HiRes Time/Piece attrs re'
+static_ext='Data/Dumper Digest/MD5 Fcntl Filter/Util/Call GDBM_File IO IPC/SysV List/Util MIME/Base64 NDBM_File Opcode PerlIO/scalar POSIX Socket Storable Thread Time/HiRes Time/Piece attrs re'
 stdchar='char'
 stdio_cnt='(fp)->__countIn'
 stdio_ptr='(fp)->__bufPtr'
similarity index 82%
rename from lib/PerlIO/Via/QuotedPrint.pm
rename to lib/PerlIO/via/QuotedPrint.pm
index ab3448d..3acf45c 100644 (file)
@@ -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
 
similarity index 86%
rename from lib/PerlIO/Via/t/QuotedPrint.t
rename to lib/PerlIO/via/t/QuotedPrint.t
index 59d1363..c1367c0 100644 (file)
@@ -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' );
index 3cce842..6b6e6e4 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -1255,7 +1255,7 @@ PerlIO_layer_from_ref(pTHX_ SV *sv)
      * For any scalar type load the handler which is bundled with perl
      */
     if (SvTYPE(sv) < SVt_PVAV)
-       return PerlIO_find_layer(aTHX_ "Scalar", 6, 1);
+       return PerlIO_find_layer(aTHX_ "scalar", 6, 1);
 
     /*
      * For other types allow if layer is known but don't try and load it
@@ -1295,7 +1295,7 @@ PerlIO_resolve_layers(pTHX_ const char *layers,
                incdef = 0;
            }
            /*
-            * Don't fail if handler cannot be found :Via(...) etc. may do
+            * Don't fail if handler cannot be found :via(...) etc. may do
             * something sensible else we will just stringfy and open
             * resulting string.
             */
index 4c657a7..2611c84 100644 (file)
@@ -990,7 +990,7 @@ in quoted-printable encoding, as defined in RFC 2045 - I<MIME
 
     print $encoded, "\n"; # "Smiley in Unicode: =263A"
 
-See also L<PerlIO::Via::QuotedPrint>.
+See also L<PerlIO::via::QuotedPrint>.
 
 =item *
 
@@ -1004,27 +1004,27 @@ for open().
 
 =item *
 
-C<PerlIO::Scalar>, by Nick Ing-Simmons, provides the implementation
+C<PerlIO::scalar>, by Nick Ing-Simmons, provides the implementation
 of IO to "in memory" Perl scalars as discussed above.  It also serves
 as an example of a loadable PerlIO layer.  Other future possibilities
-include PerlIO::Array and PerlIO::Code.  See L<PerlIO::Scalar>.
+include PerlIO::Array and PerlIO::Code.  See L<PerlIO::scalar>.
 
 =item *
 
-C<PerlIO::Via>, by Nick Ing-Simmons, acts as a PerlIO layer and wraps
+C<PerlIO::via>, by Nick Ing-Simmons, acts as a PerlIO layer and wraps
 PerlIO layer functionality provided by a class (typically implemented
 in Perl code).
 
 =item *
 
-C<PerlIO::Via::QuotedPrint>, by Elizabeth Mattijsen, is an example
-of a C<PerlIO::Via> class:
+C<PerlIO::via::QuotedPrint>, by Elizabeth Mattijsen, is an example
+of a C<PerlIO::via> class:
 
-    use PerlIO::Via::QuotedPrint;
-    open($fh,">Via(PerlIO::Via::QuotedPrint)",$path);
+    use PerlIO::via::QuotedPrint;
+    open($fh,">Via(PerlIO::via::QuotedPrint)",$path);
 
 This will automatically convert everything output to C<$fh> to
-Quoted-Printable.  See L<PerlIO::Via> and L<PerlIO::Via::QuotedPrint>.
+Quoted-Printable.  See L<PerlIO::via> and L<PerlIO::via::QuotedPrint>.
 
 =item *
 
@@ -3482,6 +3482,11 @@ developers available, we could not get this fixed and tested in time
 for 5.8.0.  Perl 5.6.1 still works for AmigaOS (as does the the 5.7.2
 development release).
 
+The C<PerlIO::Scalar> and C<PerlIO::Via> (capitalised) were renamed as
+C<PerlIO::scalar> and C<PerlIO::via> (all lowercase) just before 5.8.0.
+The main rationale was to have all core IO layers to have all
+lowercase names.
+
 =head1 Reporting Bugs
 
 If you find what you think is a bug, you might check the articles
index a921bc8..08ea7c6 100644 (file)
@@ -797,10 +797,10 @@ determined via C<tell>.
 
 Provided to allow layers to be implemented as Perl code.  For instance:
 
-   use PerlIO::Via::StripHTML;
+   use PerlIO::via::StripHTML;
    open( my $fh, ">:Via(StripHTML)", "index.html" );
 
-See L<PerlIO::Via> for details.
+See L<PerlIO::via> for details.
 
 =back
 
index 83581c8..109b1f1 100644 (file)
@@ -16568,7 +16568,19 @@ unix, stdio, perlio, crlf, utf8, bytes, raw
 
 =back
 
-=head2 PerlIO::Scalar - support module for in-memory IO.
+=head2 PerlIO::encoding - encoding layer
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 PerlIO::scalar - support module for in-memory IO.
 
 =over 4
 
@@ -16578,7 +16590,7 @@ unix, stdio, perlio, crlf, utf8, bytes, raw
 
 =back
 
-=head2 PerlIO::Via - Helper class for PerlIO layers implemented in perl
+=head2 PerlIO::via - Helper class for PerlIO layers implemented in perl
 
 =over 4
 
@@ -16586,15 +16598,19 @@ unix, stdio, perlio, crlf, utf8, bytes, raw
 
 =item DESCRIPTION
 
+=item EXPECTED METHODS
+
 $class->PUSHED([$mode[,$fh]]), $obj->POPPED([$fh]),
-$class->OPEN($path,$mode[,$fh]), $obj->BINMODE([,$fh]),
-$class->FDOPEN($fd), $class->SYSOPEN($path,$imode,$perm,$fh),
+$obj->OPEN($path,$mode[,$fh]), $obj->BINMODE([,$fh]),
+$obj->FDOPEN($fd[,$fh]), $obj->SYSOPEN($path,$imode,$perm,[,$fh]),
 $obj->FILENO($fh), $obj->READ($buffer,$len,$fh), $obj->WRITE($buffer,$fh),
 $obj->FILL($fh), $obj->CLOSE($fh), $obj->SEEK($posn,$whence,$fh),
 $obj->TELL($fh), $obj->UNREAD($buffer,$fh), $obj->FLUSH($fh),
 $obj->SETLINEBUF($fh), $obj->CLEARERR($fh), $obj->ERROR($fh),
 $obj->EOF($fh)
 
+=item EXAMPLES
+
 =over 4
 
 =item Example - a Hexadecimal Handle
@@ -16603,7 +16619,7 @@ $obj->EOF($fh)
 
 =back
 
-=head2 PerlIO::encoding - encoding layer
+=head2 PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
 
 =over 4
 
@@ -16613,6 +16629,8 @@ $obj->EOF($fh)
 
 =item SEE ALSO
 
+=item COPYRIGHT
+
 =back
 
 =head2 Pod::Checker, podchecker() - check pod documents for syntax errors
@@ -18988,9 +19006,12 @@ new, new NUMBER, down, down NUMBER, up, up NUMBER
 =back
 
 =head2 Thread::Signal - Start a thread which runs signal handlers reliably
+(for old code)
 
 =over 4
 
+=item CAVEAT
+
 =item SYNOPSIS
 
 =item DESCRIPTION
index cc360f8..0877f4d 100644 (file)
@@ -661,12 +661,12 @@ STORABLE          = $(EXTDIR)\Storable\Storable
 FILTER                 = $(EXTDIR)\Filter\Util\Call\Call
 ENCODE                 = $(EXTDIR)\Encode\Encode
 MD5                    = $(EXTDIR)\Digest\MD5\MD5
-PERLIOSCALAR           = $(EXTDIR)\PerlIO\Scalar\Scalar
+PERLIOSCALAR           = $(EXTDIR)\PerlIO\scalar\scalar
 MIMEBASE64             = $(EXTDIR)\MIME\Base64\Base64
 TIMEHIRES              = $(EXTDIR)\Time\HiRes\HiRes
 CWD                    = $(EXTDIR)\Cwd\Cwd
 LISTUTIL               = $(EXTDIR)\List\Util\Util
-PERLIOVIA              = $(EXTDIR)\PerlIO\Via\Via
+PERLIOVIA              = $(EXTDIR)\PerlIO\via\via
 XSAPITEST              = $(EXTDIR)\XS\APItest\APItest
 XSTYPEMAP              = $(EXTDIR)\XS\Typemap\Typemap
 UNICODENORMALIZE       = $(EXTDIR)\Unicode\Normalize\Normalize
@@ -691,12 +691,12 @@ STORABLE_DLL              = $(AUTODIR)\Storable\Storable.dll
 FILTER_DLL             = $(AUTODIR)\Filter\Util\Call\Call.dll
 ENCODE_DLL             = $(AUTODIR)\Encode\Encode.dll
 MD5_DLL                        = $(AUTODIR)\Digest\MD5\MD5.dll
-PERLIOSCALAR_DLL       = $(AUTODIR)\PerlIO\Scalar\Scalar.dll
+PERLIOSCALAR_DLL       = $(AUTODIR)\PerlIO\scalar\scalar.dll
 MIMEBASE64_DLL         = $(AUTODIR)\MIME\Base64\Base64.dll
 TIMEHIRES_DLL          = $(AUTODIR)\Time\HiRes\HiRes.dll
 CWD_DLL                        = $(AUTODIR)\Cwd\Cwd.dll
 LISTUTIL_DLL           = $(AUTODIR)\List\Util\Util.dll
-PERLIOVIA_DLL          = $(AUTODIR)\PerlIO\Via\Via.dll
+PERLIOVIA_DLL          = $(AUTODIR)\PerlIO\via\via.dll
 XSAPITEST_DLL          = $(AUTODIR)\XS\APItest\APItest.dll
 XSTYPEMAP_DLL          = $(AUTODIR)\XS\Typemap\Typemap.dll
 UNICODENORMALIZE_DLL   = $(AUTODIR)\Unicode\Normalize\Normalize.dll
@@ -1017,8 +1017,8 @@ distclean: clean
        -del /f $(LIBDIR)\Storable.pm
        -del /f $(LIBDIR)\Filter\Util\Call.pm
        -del /f $(LIBDIR)\Digest\MD5.pm
-       -del /f $(LIBDIR)\PerlIO\Scalar.pm
-       -del /f $(LIBDIR)\PerlIO\Via.pm
+       -del /f $(LIBDIR)\PerlIO\scalar.pm
+       -del /f $(LIBDIR)\PerlIO\via.pm
        -del /f $(LIBDIR)\MIME\Base64.pm
        -del /f $(LIBDIR)\MIME\QuotedPrint.pm
        -del /f $(LIBDIR)\List\Util.pm
index 80a0415..d2f76e7 100644 (file)
@@ -783,7 +783,7 @@ SETARGV_OBJ = setargv$(o)
 DYNAMIC_EXT    = Socket IO Fcntl Opcode SDBM_File POSIX attrs Thread B re \
                Data/Dumper Devel/Peek ByteLoader Devel/DProf File/Glob \
                Sys/Hostname Storable Filter/Util/Call Encode \
-               Digest/MD5 PerlIO/Scalar MIME/Base64 Time/HiRes \
+               Digest/MD5 PerlIO/scalar MIME/Base64 Time/HiRes \
                Unicode/Normalize
 STATIC_EXT     = DynaLoader
 NONXS_EXT      = Errno
@@ -1153,7 +1153,7 @@ distclean: clean
        -del /f $(LIBDIR)\SDBM_File.pm $(LIBDIR)\Socket.pm $(LIBDIR)\POSIX.pm
        -del /f $(LIBDIR)\B.pm $(LIBDIR)\O.pm $(LIBDIR)\re.pm
        -del /f $(LIBDIR)\Data\Dumper.pm $(LIBDIR)\ByteLoader.pm
-       -del /f $(LIBDIR)\PerlIO\Scalar.pm
+       -del /f $(LIBDIR)\PerlIO\scalar.pm
        -del /f $(LIBDIR)\Devel\Peek.pm $(LIBDIR)\Devel\DProf.pm
        -del /f $(LIBDIR)\File\Glob.pm
        -del /f $(LIBDIR)\Storable.pm