In perl.git, the branch maint-5.22 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d8e97bce64a7bca740ab6e7b40765463a40f1894?hp=f971bc22294e252e05f9b2481d44868319fe6257>
- Log ----------------------------------------------------------------- commit d8e97bce64a7bca740ab6e7b40765463a40f1894 Author: Chase Whitener <[email protected]> Date: Wed Jun 3 21:09:06 2015 -0400 Prefer 'Foo->new' to 'new Foo' in examples of constructors. Add Chase Whitener to Perl AUTHORS. For: RT #125313 (cherry picked from commit 63602a3fc27a417daf3c532b6a11ae6eba2a072a) M AUTHORS M pod/perlunicook.pod commit 5e51fcea0012e901f67f4bc99bf1986e92206376 Author: Rafael Garcia-Suarez <[email protected]> Date: Tue Jun 16 12:21:04 2015 +0200 Perl example style nit in docs for sort() Declare both arrays, no need to clear them. (cherry picked from commit bace499647c542e44fa169173393f19316fe05b6) M pod/perlfunc.pod commit 291d9a03d56a3706fb1815088eecbda4d1575386 Author: Tony Cook <[email protected]> Date: Wed Jun 17 10:55:19 2015 +1000 [perl #123264] explicitly document the return value of sysopen (cherry picked from commit b6d5ddf72d1067c498a7ed65623df9f2f8f8d749) M pod/perlfunc.pod commit f33623befe24460f1f7038deddc0cc4672d58e66 Author: Karl Williamson <[email protected]> Date: Fri Jun 19 13:40:33 2015 -0600 perlebcdic: Fix typo (cherry picked from commit f0b1ad2b19f6dbfdc5d5feb5c5fb48888f1cd46d) M pod/perlebcdic.pod ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + pod/perlebcdic.pod | 2 +- pod/perlfunc.pod | 4 +++- pod/perlunicook.pod | 9 ++++----- 4 files changed, 9 insertions(+), 7 deletions(-) diff --git a/AUTHORS b/AUTHORS index 4386ae8..5ded2ef 100644 --- a/AUTHORS +++ b/AUTHORS @@ -214,6 +214,7 @@ Charles Randall <[email protected]> Charles Wilson <[email protected]> Charlie Gonzalez <[email protected]> Chas. Owens <[email protected]> +Chase Whitener <[email protected]> Chaskiel M Grundman Chia-liang Kao <[email protected]> Chip Salzenberg <[email protected]> diff --git a/pod/perlebcdic.pod b/pod/perlebcdic.pod index d88291a..e54084a 100644 --- a/pod/perlebcdic.pod +++ b/pod/perlebcdic.pod @@ -1851,7 +1851,7 @@ characters. Ranges containing C<\N{...}> in the C<tr///> (and C<y///>) transliteration operators are treated differently than the equivalent -ranges in regular expression pattersn. They should, but don't, cause +ranges in regular expression patterns. They should, but don't, cause the values in the ranges to all be treated as Unicode code points, and not native ones. (L<perlre/Version 8 Regular Expressions> gives details as to how it should work.) diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index ba77638..650ad0e 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -6824,7 +6824,7 @@ Examples: # same thing, but much more efficiently; # we'll build auxiliary indices instead # for speed - my @nums = @caps = (); + my (@nums, @caps); for (@old) { push @nums, ( /=(\d+)/ ? $1 : undef ); push @caps, fc($_); @@ -7957,6 +7957,8 @@ filehandle wanted; an undefined scalar will be suitably autovivified. This function calls the underlying operating system's I<open>(2) function with the parameters FILENAME, MODE, and PERMS. +Returns true on success and C<undef> otherwise. + The possible values and flag bits of the MODE parameter are system-dependent; they are available via the standard module C<Fcntl>. See the documentation of your operating system's I<open>(2) syscall to see diff --git a/pod/perlunicook.pod b/pod/perlunicook.pod index 3e5496e..e1693cd 100644 --- a/pod/perlunicook.pod +++ b/pod/perlunicook.pod @@ -186,7 +186,7 @@ know how to understand its output. # cpan -i Unicode::Unihan use Unicode::Unihan; my $str = "æ±äº¬"; - my $unhan = new Unicode::Unihan; + my $unhan = Unicode::Unihan->new; for my $lang (qw(Mandarin Cantonese Korean JapaneseOn JapaneseKun)) { printf "CJK $str in %-12s is ", $lang; say $unhan->$lang($str); @@ -205,7 +205,7 @@ use the specific module: # cpan -i Lingua::JA::Romanize::Japanese use Lingua::JA::Romanize::Japanese; - my $k2r = new Lingua::JA::Romanize::Japanese; + my $k2r = Lingua::JA::Romanize::Japanese->new; my $str = "æ±äº¬"; say "Japanese for $str is ", $k2r->chars($str); @@ -613,7 +613,7 @@ Break up text into lines according to Unicode rules. use charnames qw(:full); my $para = "This is a super\N{HYPHEN}long string. " x 20; - my $fmt = new Unicode::LineBreak; + my $fmt = Unicode::LineBreak->new; print $fmt->break($para), "\n"; =head2 â 42: Unicode text in DBM hashes, the tedious way @@ -745,7 +745,7 @@ Here's that program; tested on v5.14. # So the Asian stuff comes out in an order that someone # who reads those scripts won't freak out over; the # CJK stuff will be in JIS X 0208 order that way. - my $coll = new Unicode::Collate::Locale locale => "ja"; + my $coll = Unicode::Collate::Locale->new(locale => "ja"); for my $item ($coll->sort(keys %price)) { print pad(entitle($item), $width, "."); @@ -855,4 +855,3 @@ Acknowledgement via code comment is polite but not required. =head1 REVISION HISTORY v1.0.0 â first public release, 2012-02-27 - -- Perl5 Master Repository
