diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2013-09-07 23:44:38 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-09-16 15:37:37 +0100 |
commit | 7bf140906596458f94aa2d5969d3067c0d6441a4 (patch) | |
tree | 20c24860a363e1a091a96074e4edacb752f566f2 /ext/Errno | |
parent | 4eaf3102d69324863df3d6e00970832384cdf452 (diff) | |
download | perl-7bf140906596458f94aa2d5969d3067c0d6441a4.tar.gz |
Silence noise from Errno_pm.PL on Windows
A block of warnings like this appears when building Errno with VC++:
Number found where operator expected at (eval 633) line 1, near ")0xC0000093"
(Missing operator before 0xC0000093?)
This is caused by #defines like these in the Windows header files:
WinBase.h:#define EXCEPTION_FLT_UNDERFLOW STATUS_FLOAT_UNDERFLOW
WinNT.h:#define STATUS_FLOAT_UNDERFLOW ((DWORD )0xC0000093L)
and can be silenced by teaching Errno_pm.PL about the otherwise unexpected
whitespace immediately after "DWORD" in the cast.
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 776a5e56be..bb41e031fe 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -245,7 +245,7 @@ sub write_errno_pm { my($name,$expr); next unless ($name, $expr) = /"(.*?)"\s*\[\s*\[\s*(.*?)\s*\]\s*\]/; next if $name eq $expr; - $expr =~ s/\(?\([a-z_]\w*\)([^\)]*)\)?/$1/i; # ((type)0xcafebabe) at alia + $expr =~ s/\(?\(\s*[a-z_]\w*\s*\)([^\)]*)\)?/$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]/) { |