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 | |
parent | 87916f79aa07b5dbe56ccb225f526e8752c462ad (diff) | |
download | perl-e0d3d5f5ef3302519c375a84615d5b8630632c62.tar.gz |
Keep verbatim pod in I18N:LT and IO.pm within 80 cols
-rw-r--r-- | dist/I18N-LangTags/lib/I18N/LangTags.pm | 22 | ||||
-rw-r--r-- | dist/IO/IO.pm | 6 | ||||
-rw-r--r-- | t/porting/known_pod_issues.dat | 2 |
3 files changed, 14 insertions, 16 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 diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index ff1becc0b7..c679af3a33 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -142,8 +142,6 @@ dist/data-dumper/dumper.pm ? Should you be using L<...> instead of 1 dist/extutils-parsexs/lib/perlxs.pod Verbatim line length including indents exceeds 79 by 4 dist/extutils-parsexs/lib/perlxstut.pod Verbatim line length including indents exceeds 79 by 10 dist/filter-simple/lib/filter/simple.pm Verbatim paragraph in NAME section 1 -dist/i18n-langtags/lib/i18n/langtags.pm Verbatim line length including indents exceeds 79 by 2 -dist/io/io.pm Verbatim line length including indents exceeds 79 by 1 dist/io/lib/io/socket/inet.pm Verbatim line length including indents exceeds 79 by 5 dist/locale-maketext/lib/locale/maketext.pod No items in =over / =back list 1 dist/locale-maketext/lib/locale/maketext.pod Verbatim line length including indents exceeds 79 by 1 |