From: Jarkko Hietaniemi Date: Tue, 9 Jul 2002 21:31:44 +0000 (+0000) Subject: Change PerlIO::Scalar and Via to scalar and via. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e934609f7db1163b003ba7314f8d52ebfc1e2f12;p=p5sagit%2Fp5-mst-13.2.git Change PerlIO::Scalar and Via to scalar and via. p4raw-id: //depot/perl@17454 --- diff --git a/MANIFEST b/MANIFEST index 5b9c3cf..1cab07f 100644 --- 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 diff --git a/Porting/config.sh b/Porting/config.sh index b74cbc2..f221572 100644 --- a/Porting/config.sh +++ b/Porting/config.sh @@ -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' diff --git a/djgpp/config.over b/djgpp/config.over index 6967233..f385f55 100644 --- a/djgpp/config.over +++ b/djgpp/config.over @@ -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 --- 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 */ diff --git a/epoc/config.sh b/epoc/config.sh index a19e735..78b22ac 100644 --- a/epoc/config.sh +++ b/epoc/config.sh @@ -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='' diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index f1019f0..8d71bb2 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -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 ); } diff --git a/ext/PerlIO/Scalar/Makefile.PL b/ext/PerlIO/scalar/Makefile.PL similarity index 63% rename from ext/PerlIO/Scalar/Makefile.PL rename to ext/PerlIO/scalar/Makefile.PL index 9d97e4a..11a9ee5 100644 --- a/ext/PerlIO/Scalar/Makefile.PL +++ b/ext/PerlIO/scalar/Makefile.PL @@ -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', ); diff --git a/ext/PerlIO/Scalar/Scalar.pm b/ext/PerlIO/scalar/scalar.pm similarity index 67% rename from ext/PerlIO/Scalar/Scalar.pm rename to ext/PerlIO/scalar/scalar.pm index e086032..d75d370 100644 --- a/ext/PerlIO/Scalar/Scalar.pm +++ b/ext/PerlIO/scalar/scalar.pm @@ -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 only exists to use XSLoader to load C code that provides +C 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 diff --git a/ext/PerlIO/Scalar/Scalar.xs b/ext/PerlIO/scalar/scalar.xs similarity index 99% rename from ext/PerlIO/Scalar/Scalar.xs rename to ext/PerlIO/scalar/scalar.xs index 5bbc119..f505c89 100644 --- a/ext/PerlIO/Scalar/Scalar.xs +++ b/ext/PerlIO/scalar/scalar.xs @@ -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 diff --git a/ext/PerlIO/t/via.t b/ext/PerlIO/t/via.t index 85f5b8e..d40e85e 100644 --- a/ext/PerlIO/t/via.t +++ b/ext/PerlIO/t/via.t @@ -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 output'); +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," } 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; diff --git a/ext/PerlIO/Via/Makefile.PL b/ext/PerlIO/via/Makefile.PL similarity index 66% rename from ext/PerlIO/Via/Makefile.PL rename to ext/PerlIO/via/Makefile.PL index d47ba93..deb401f 100644 --- a/ext/PerlIO/Via/Makefile.PL +++ b/ext/PerlIO/via/Makefile.PL @@ -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', ); diff --git a/ext/PerlIO/Via/Via.pm b/ext/PerlIO/via/via.pm similarity index 83% rename from ext/PerlIO/Via/Via.pm rename to ext/PerlIO/via/via.pm index 6c4cd48..cab00fa 100644 --- a/ext/PerlIO/Via/Via.pm +++ b/ext/PerlIO/via/via.pm @@ -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, is include with Perl +One example module, L, is include with Perl 5.8.0, and more example modules are available from CPAN, such as -L and L. The -PerlIO::Via::StripHTML for instance, allows you to say: +L and L. 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 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 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 diff --git a/ext/PerlIO/Via/Via.xs b/ext/PerlIO/via/via.xs similarity index 99% rename from ext/PerlIO/Via/Via.xs rename to ext/PerlIO/via/via.xs index fb6718d..0c24778 100644 --- a/ext/PerlIO/Via/Via.xs +++ b/ext/PerlIO/via/via.xs @@ -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: diff --git a/hints/uwin.sh b/hints/uwin.sh index e5a09a6..c05d9eb 100644 --- a/hints/uwin.sh +++ b/hints/uwin.sh @@ -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 diff --git a/hints/vmesa.sh b/hints/vmesa.sh index f0c0232..5fad22b 100644 --- a/hints/vmesa.sh +++ b/hints/vmesa.sh @@ -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' diff --git a/lib/PerlIO/Via/QuotedPrint.pm b/lib/PerlIO/via/QuotedPrint.pm similarity index 82% rename from lib/PerlIO/Via/QuotedPrint.pm rename to lib/PerlIO/via/QuotedPrint.pm index ab3448d..3acf45c 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 $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, L, L, L, -L. +L, L, L, L, +L. =head1 COPYRIGHT diff --git a/lib/PerlIO/Via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t similarity index 86% rename from lib/PerlIO/Via/t/QuotedPrint.t rename to lib/PerlIO/via/t/QuotedPrint.t index 59d1363..c1367c0 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 = <: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' ); diff --git a/perlio.c b/perlio.c index 3cce842..6b6e6e4 100644 --- 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. */ diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 4c657a7..2611c84 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -990,7 +990,7 @@ in quoted-printable encoding, as defined in RFC 2045 - I. +See also L. =item * @@ -1004,27 +1004,27 @@ for open(). =item * -C, by Nick Ing-Simmons, provides the implementation +C, 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. +include PerlIO::Array and PerlIO::Code. See L. =item * -C, by Nick Ing-Simmons, acts as a PerlIO layer and wraps +C, 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, by Elizabeth Mattijsen, is an example -of a C class: +C, by Elizabeth Mattijsen, is an example +of a C 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 and L. +Quoted-Printable. See L and L. =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 and C (capitalised) were renamed as +C and C (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 diff --git a/pod/perliol.pod b/pod/perliol.pod index a921bc8..08ea7c6 100644 --- a/pod/perliol.pod +++ b/pod/perliol.pod @@ -797,10 +797,10 @@ determined via C. 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 for details. +See L for details. =back diff --git a/pod/perltoc.pod b/pod/perltoc.pod index 83581c8..109b1f1 100644 --- a/pod/perltoc.pod +++ b/pod/perltoc.pod @@ -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 diff --git a/win32/Makefile b/win32/Makefile index cc360f8..0877f4d 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -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 diff --git a/win32/makefile.mk b/win32/makefile.mk index 80a0415..d2f76e7 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -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