From: Brendan O'Dea <bod@debian.org>
Date: Wed, 30 Mar 2005 10:30:25 +0000 (+1000)
Subject: ext/Errno/Errno_pm.PL: fix for GNU hurd
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a633c72b52416b7dbe2354fbc72b752af530ba5d;p=p5sagit%2Fp5-mst-13.2.git

ext/Errno/Errno_pm.PL: fix for GNU hurd
Message-ID: <20050330003025.GA29797@londo.c47.org>

p4raw-id: //depot/perl@24101
---

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 20eab28..39e2c19 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]/) {