diff options
| author | George Hartzell <georgewh@gene.com> | 2018-01-24 13:36:10 -0800 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2018-01-25 11:28:40 +1100 |
| commit | 79c8ecffcf3a7e3c0396a470229f729a5dd383c6 (patch) | |
| tree | 7c8877eea33ae48884eccd195b0db36545df0431 /ext/Errno | |
| parent | 1556073b177050bb1fd52d5e76c72d4f215c0730 (diff) | |
| download | perl-79c8ecffcf3a7e3c0396a470229f729a5dd383c6.tar.gz | |
Typo: 'at alia' should be 'et alia'
Diffstat (limited to 'ext/Errno')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index d345e98042..e7f00b788f 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -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]/) { |