This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/Errno/Errno_pm.PL: fix for GNU hurd
authorBrendan O'Dea <bod@debian.org>
Wed, 30 Mar 2005 10:30:25 +0000 (20:30 +1000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 30 Mar 2005 13:34:11 +0000 (13:34 +0000)
Message-ID: <20050330003025.GA29797@londo.c47.org>

p4raw-id: //depot/perl@24101

ext/Errno/Errno_pm.PL

index 20eab28..39e2c19 100644 (file)
@@ -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]/) {