diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-08-09 18:06:38 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-10 13:32:34 -0700 |
commit | e0d3d5f5ef3302519c375a84615d5b8630632c62 (patch) | |
tree | 848d42a608d4e8ff929d3f438240b5665506caa9 /dist | |
parent | 87916f79aa07b5dbe56ccb225f526e8752c462ad (diff) | |
download | perl-e0d3d5f5ef3302519c375a84615d5b8630632c62.tar.gz |
Keep verbatim pod in I18N:LT and IO.pm within 80 cols
Diffstat (limited to 'dist')
-rw-r--r-- | dist/I18N-LangTags/lib/I18N/LangTags.pm | 22 | ||||
-rw-r--r-- | dist/IO/IO.pm | 6 |
2 files changed, 14 insertions, 14 deletions
diff --git a/dist/I18N-LangTags/lib/I18N/LangTags.pm b/dist/I18N-LangTags/lib/I18N/LangTags.pm index 85a4f2263b..42ff0fccba 100644 --- a/dist/I18N-LangTags/lib/I18N/LangTags.pm +++ b/dist/I18N-LangTags/lib/I18N/LangTags.pm @@ -19,7 +19,7 @@ require Exporter; ); %EXPORT_TAGS = ('ALL' => \@EXPORT_OK); -$VERSION = "0.36"; +$VERSION = "0.37"; sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function @@ -579,16 +579,16 @@ tag ("ar") exists. Examples: - alternate_language_tags('no-bok') is ('nb') - alternate_language_tags('nb') is ('no-bok') - alternate_language_tags('he') is ('iw') - alternate_language_tags('iw') is ('he') - alternate_language_tags('i-hakka') is ('zh-hakka', 'x-hakka') - alternate_language_tags('zh-hakka') is ('i-hakka', 'x-hakka') - alternate_language_tags('en') is () - alternate_language_tags('x-mingo-tom') is ('i-mingo-tom') - alternate_language_tags('x-klikitat') is ('i-klikitat') - alternate_language_tags('i-klikitat') is ('x-klikitat') + alternate_language_tags('no-bok') is ('nb') + alternate_language_tags('nb') is ('no-bok') + alternate_language_tags('he') is ('iw') + alternate_language_tags('iw') is ('he') + alternate_language_tags('i-hakka') is ('zh-hakka', 'x-hakka') + alternate_language_tags('zh-hakka') is ('i-hakka', 'x-hakka') + alternate_language_tags('en') is () + alternate_language_tags('x-mingo-tom') is ('i-mingo-tom') + alternate_language_tags('x-klikitat') is ('i-klikitat') + alternate_language_tags('i-klikitat') is ('x-klikitat') This function returns empty-list if given anything other than a formally valid language tag. diff --git a/dist/IO/IO.pm b/dist/IO/IO.pm index d6ccbfb1fa..09143f2e39 100644 --- a/dist/IO/IO.pm +++ b/dist/IO/IO.pm @@ -7,7 +7,7 @@ use Carp; use strict; use warnings; -our $VERSION = "1.25_04"; +our $VERSION = "1.25_05"; XSLoader::load 'IO', $VERSION; sub import { @@ -32,8 +32,8 @@ IO - load various IO modules =head1 SYNOPSIS - use IO qw(Handle File); # loads IO modules, here IO::Handle, IO::File - use IO; # DEPRECATED + use IO qw(Handle File); # loads IO modules, here IO::Handle, IO::File + use IO; # DEPRECATED =head1 DESCRIPTION |