diff options
| author | Brendan O'Dea <bod@debian.org> | 2005-03-30 20:30:25 +1000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-30 13:34:11 +0000 |
| commit | a633c72b52416b7dbe2354fbc72b752af530ba5d (patch) | |
| tree | c78176aa074a5c367bce0a5cbfbbffcb328d1a93 | |
| parent | 28be1210e1847088dea44932568ceeb145a4a140 (diff) | |
| download | perl-a633c72b52416b7dbe2354fbc72b752af530ba5d.tar.gz | |
ext/Errno/Errno_pm.PL: fix for GNU hurd
Message-ID: <20050330003025.GA29797@londo.c47.org>
p4raw-id: //depot/perl@24101
| -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 20eab28cfe..39e2c19230 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -237,7 +237,7 @@ sub write_errno_pm { my($name,$expr); next unless ($name, $expr) = /"(.*?)"\s*\[\s*\[\s*(.*?)\s*\]\s*\]/; next if $name eq $expr; - $expr =~ s/\(?\(\w+\)([^\)]*)\)?/$1/; # ((type)0xcafebabe) at alia + $expr =~ s/\(?\([a-z_]\w*\)([^\)]*)\)?/$1/i; # ((type)0xcafebabe) at alia $expr =~ s/((?:0x)?[0-9a-fA-F]+)[LU]+\b/$1/g; # 2147483647L et alia next if $expr =~ m/^[a-zA-Z]+$/; # skip some Win32 functions if($expr =~ m/^0[xX]/) { |