X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fopen.pm;h=32c5118be9db4b17cbe7e5d882eab8ebb86a5b79;hb=78e38bb6033b96ad3fdd5f4f7bd08f6fedae70cb;hp=f66cb5b0ed2dea588df7a08d3096f0d1862aa17f;hpb=011f8d22855f3e69d20d9a6808fe8d9789c166af;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/open.pm b/lib/open.pm index f66cb5b..32c5118 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -1,8 +1,9 @@ package open; +use warnings; use Carp; -$open::hint_bits = 0x20000; +$open::hint_bits = 0x20000; # HINT_LOCALIZE_HH -our $VERSION = '1.01'; +our $VERSION = '1.03'; my $locale_encoding; @@ -26,6 +27,7 @@ sub _get_locale_encoding { } elsif ($ENV{LANG} =~ /^([^.]+)\.([^.]+)$/) { ($country_language, $locale_encoding) = ($1, $2); } + # LANGUAGE affects only LC_MESSAGES only on glibc } elsif (not $locale_encoding) { if ($ENV{LC_ALL} =~ /\butf-?8\b/i || $ENV{LANG} =~ /\butf-?8\b/i) { @@ -39,7 +41,7 @@ sub _get_locale_encoding { # would be excellent!) --jhi } if (defined $locale_encoding && - $locale_encoding eq 'euc' && + lc($locale_encoding) eq 'euc' && defined $country_language) { if ($country_language =~ /^ja_JP|japan(?:ese)?$/i) { $locale_encoding = 'euc-jp'; @@ -49,16 +51,16 @@ sub _get_locale_encoding { $locale_encoding = 'euc-cn'; } elsif ($country_language =~ /^zh_TW|taiwan(?:ese)?$/i) { $locale_encoding = 'euc-tw'; + } else { + croak "Locale encoding 'euc' too ambiguous"; } - croak "Locale encoding 'euc' too ambiguous" - if $locale_encoding eq 'euc'; } } } sub import { my ($class,@args) = @_; - croak("`use open' needs explicit list of disciplines") unless @args; + croak("`use open' needs explicit list of PerlIO layers") unless @args; my $std; $^H |= $open::hint_bits; my ($in,$out) = split(/\0/,(${^OPEN} || "\0"), -1); @@ -78,10 +80,10 @@ sub import { foreach my $layer (split(/\s+/,$dscp)) { $layer =~ s/^://; if ($layer eq 'locale') { - use Encode; + require Encode; _get_locale_encoding() unless defined $locale_encoding; - (carp("Cannot figure out an encoding to use"), last) + (warnings::warnif("layer", "Cannot figure out an encoding to use"), last) unless defined $locale_encoding; if ($locale_encoding =~ /^utf-?8$/i) { $layer = "utf8"; @@ -93,8 +95,8 @@ sub import { my $target = $layer; # the layer name itself $target =~ s/^(\w+)\(.+\)$/$1/; # strip parameters - unless(PerlIO::Layer::->find($target)) { - carp("Unknown discipline layer '$layer'"); + unless(PerlIO::Layer::->find($target,1)) { + warnings::warnif("layer", "Unknown PerlIO layer '$target'"); } } push(@val,":$layer"); @@ -112,7 +114,7 @@ sub import { $in = $out = join(' ',@val); } else { - croak "Unknown discipline class '$type'"; + croak "Unknown PerlIO layer class '$type'"; } } ${^OPEN} = join("\0",$in,$out) if $in or $out; @@ -141,11 +143,11 @@ __END__ =head1 NAME -open - perl pragma to set default disciplines for input and output +open - perl pragma to set default PerlIO layers for input and output =head1 SYNOPSIS - use open IN => ":crlf", OUT => ":raw"; + use open IN => ":crlf", OUT => ":bytes"; use open OUT => ':utf8'; use open IO => ":encoding(iso-8859-7)"; @@ -159,17 +161,17 @@ open - perl pragma to set default disciplines for input and output =head1 DESCRIPTION -Full-fledged support for I/O disciplines is now implemented provided +Full-fledged support for I/O layers is now implemented provided Perl is configured to use PerlIO as its IO system (which is now the default). The C pragma serves as one of the interfaces to declare default -"layers" (aka disciplines) for all I/O. - -The C pragma is used to declare one or more default layers for -I/O operations. Any open(), readpipe() (aka qx//) and similar -operators found within the lexical scope of this pragma will use the -declared defaults. +"layers" (also known as "disciplines") for all I/O. Any two-argument +open(), readpipe() (aka qx//) and similar operators found within the +lexical scope of this pragma will use the declared defaults. +Three-argument opens are not affected by this pragma since there you +(can) explicitly specify the layers and are supposed to know what you +are doing. With the C subpragma you can declare the default layers of input streams, and with the C subpragma you can declare @@ -178,7 +180,7 @@ you can control both input and output streams simultaneously. If you have a legacy encoding, you can use the C<:encoding(...)> tag. -if you want to set your encoding disciplines based on your +if you want to set your encoding layers based on your locale environment variables, you can use the C<:locale> tag. For example: @@ -207,6 +209,13 @@ and these use open ':encoding(iso-8859-7)'; use open IO => ':encoding(iso-8859-7)'; +The matching of encoding names is loose: case does not matter, and +many encodings have several aliases. See L for +details and the list of supported locales. + +Note that C<:utf8> PerlIO layer must always be specified exactly like +that, it is not subject to the loose matching of encoding names. + When open() is given an explicit list of layers they are appended to the list declared using this pragma. @@ -245,22 +254,22 @@ pragma. =back -If your locale environment variables (LANGUAGE, LC_ALL, LC_CTYPE, LANG) +If your locale environment variables (LC_ALL, LC_CTYPE, LANG) contain the strings 'UTF-8' or 'UTF8' (case-insensitive matching), the default encoding of your STDIN, STDOUT, and STDERR, and of B, is UTF-8. -Directory handles may also support disciplines in future. +Directory handles may also support PerlIO layers in the future. =head1 NONPERLIO FUNCTIONALITY If Perl is not built to use PerlIO as its IO system then only the two -pseudo-disciplines ":raw" and ":crlf" are available. +pseudo-layers C<:bytes> and C<:crlf> are available. -The ":raw" discipline corresponds to "binary mode" and the ":crlf" -discipline corresponds to "text mode" on platforms that distinguish +The C<:bytes> layer corresponds to "binary mode" and the C<:crlf> +layer corresponds to "text mode" on platforms that distinguish between the two modes when opening files (which is many DOS-like -platforms, including Windows). These two disciplines are no-ops on +platforms, including Windows). These two layers are no-ops on platforms where binmode() is a no-op, but perform their functions everywhere if PerlIO is enabled.