In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/f05f24e529a8da95d8b88a6bcbf0ffe8a0076027?hp=1556073b177050bb1fd52d5e76c72d4f215c0730>
- Log ----------------------------------------------------------------- commit f05f24e529a8da95d8b88a6bcbf0ffe8a0076027 Author: Tony Cook <[email protected]> Date: Thu Jan 25 11:43:07 2018 +1100 George Hartzell is now a perl author commit a9d53a924999b5c5611eb3b2a46201fbfa3bfbfc Author: Tony Cook <[email protected]> Date: Thu Jan 25 11:42:51 2018 +1100 bump $Errno::VERSION commit 79c8ecffcf3a7e3c0396a470229f729a5dd383c6 Author: George Hartzell <[email protected]> Date: Wed Jan 24 13:36:10 2018 -0800 Typo: 'at alia' should be 'et alia' ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + ext/Errno/Errno_pm.PL | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/AUTHORS b/AUTHORS index e2c794510e..e5295161bc 100644 --- a/AUTHORS +++ b/AUTHORS @@ -438,6 +438,7 @@ Geoffrey F. Green <[email protected]> Geoffrey T. Dairiki <[email protected]> Georg Schwarz <[email protected]> George Greer <[email protected]> +George Hartzell <[email protected]> George Necula <[email protected]> Geraint A Edwards <[email protected]> Gerard Goossen <[email protected]> diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index d345e98042..d565f31b2f 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -2,7 +2,7 @@ use ExtUtils::MakeMaker; use Config; use strict; -our $VERSION = "1.28"; +our $VERSION = "1.29"; my %err = (); @@ -257,7 +257,7 @@ sub write_errno_pm { my($name,$expr); next unless ($name, $expr) = /"(.*?)"\s*\[\s*\[\s*(.*?)\s*\]\s*\]/; next if $name eq $expr; - $expr =~ s/\(?\(\s*[a-z_]\w*\s*\)\(?([^\)]+)\)?\)?/$1/i; # ((type)0xcafebabe) at alia + $expr =~ s/\(?\(\s*[a-z_]\w*\s*\)\(?([^\)]+)\)?\)?/$1/i; # ((type)0xcafebabe) et alia $expr =~ s/\b((?:0x)?[0-9a-f]+)[LU]+\b/$1/gi; # 2147483647L et alia next if $expr =~ m/\b[a-z_]\w*\b/i; # skip expressions containing function names etc if($expr =~ m/^0[xX]/) { -- Perl5 Master Repository
