From: Father Chrysostomos Date: Wed, 10 Aug 2011 01:06:38 +0000 (-0700) Subject: Keep verbatim pod in I18N:LT and IO.pm within 80 cols X-Git-Tag: accepted/trunk/20130322.191538~3148^2~44 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e0d3d5f5ef3302519c375a84615d5b8630632c62;p=platform%2Fupstream%2Fperl.git Keep verbatim pod in I18N:LT and IO.pm within 80 cols --- diff --git a/dist/I18N-LangTags/lib/I18N/LangTags.pm b/dist/I18N-LangTags/lib/I18N/LangTags.pm index 85a4f22..42ff0fc 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 d6ccbfb..09143f2 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 ff1becc..c679af3 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