summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--MANIFEST20
-rw-r--r--Porting/config.sh6
-rw-r--r--djgpp/config.over4
-rw-r--r--doio.c6
-rw-r--r--epoc/config.sh2
-rw-r--r--ext/B/B/C.pm2
-rw-r--r--ext/PerlIO/scalar/Makefile.PL (renamed from ext/PerlIO/Scalar/Makefile.PL)4
-rw-r--r--ext/PerlIO/scalar/scalar.pm (renamed from ext/PerlIO/Scalar/Scalar.pm)8
-rw-r--r--ext/PerlIO/scalar/scalar.xs (renamed from ext/PerlIO/Scalar/Scalar.xs)4
-rw-r--r--ext/PerlIO/t/via.t20
-rw-r--r--ext/PerlIO/via/Makefile.PL (renamed from ext/PerlIO/Via/Makefile.PL)4
-rw-r--r--ext/PerlIO/via/via.pm (renamed from ext/PerlIO/Via/Via.pm)46
-rw-r--r--ext/PerlIO/via/via.xs (renamed from ext/PerlIO/Via/Via.xs)6
-rw-r--r--hints/uwin.sh2
-rw-r--r--hints/vmesa.sh2
-rw-r--r--lib/PerlIO/via/QuotedPrint.pm (renamed from lib/PerlIO/Via/QuotedPrint.pm)16
-rw-r--r--lib/PerlIO/via/t/QuotedPrint.t (renamed from lib/PerlIO/Via/t/QuotedPrint.t)6
-rw-r--r--perlio.c4
-rw-r--r--pod/perldelta.pod23
-rw-r--r--pod/perliol.pod4
-rw-r--r--pod/perltoc.pod31
-rw-r--r--win32/Makefile12
-rw-r--r--win32/makefile.mk4
23 files changed, 131 insertions, 105 deletions
diff --git a/MANIFEST b/MANIFEST
index 5b9c3cf1b7..1cab07f5b6 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 b74cbc2cbc..f221572208 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 6967233b02..f385f55369 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 622778afc3..01d485bfcd 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 a19e735a2d..78b22ac820 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 f1019f043f..8d71bb2760 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
index 9d97e4adfc..11a9ee538c 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
index e086032507..d75d3706d7 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<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
diff --git a/ext/PerlIO/Scalar/Scalar.xs b/ext/PerlIO/scalar/scalar.xs
index 5bbc11951e..f505c89f5d 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 85f5b8e6be..d40e85e365 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 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;
diff --git a/ext/PerlIO/Via/Makefile.PL b/ext/PerlIO/via/Makefile.PL
index d47ba9334e..deb401f5e2 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
index 6c4cd48d34..cab00fabd6 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<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
diff --git a/ext/PerlIO/Via/Via.xs b/ext/PerlIO/via/via.xs
index fb6718db33..0c247780b6 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 e5a09a698f..c05d9eb8dc 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 f0c0232e06..5fad22bf8b 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
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' );
diff --git a/perlio.c b/perlio.c
index 3cce8422d0..6b6e6e4782 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 4c657a786b..2611c8432d 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -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
diff --git a/pod/perliol.pod b/pod/perliol.pod
index a921bc8a01..08ea7c6d61 100644
--- a/pod/perliol.pod
+++ b/pod/perliol.pod
@@ -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
diff --git a/pod/perltoc.pod b/pod/perltoc.pod
index 83581c866b..109b1f1377 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 cc360f85b5..0877f4d91b 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 80a041552f..d2f76e7805 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
View Lorry Controller Status