This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Sanity check on Errno values.
authorCurtis Jewell <perl@csjewell.fastmail.us>
Tue, 24 Aug 2010 20:07:51 +0000 (14:07 -0600)
committerFlorian Ragwitz <rafl@debian.org>
Thu, 2 Sep 2010 01:05:07 +0000 (03:05 +0200)
On a few machines (Win32/gcc using mingw64 headers) Errno.pm
will find a value that is not numeric for a proposed error
key. This change adds a sanity check to discard such keys.

ext/Errno/Errno_pm.PL

index 0899dde..d33cd26 100644 (file)
@@ -357,8 +357,9 @@ my %err;
 BEGIN {
     %err = (
 EDQ
-   
-    my @err = sort { $err{$a} <=> $err{$b} } keys %err;
+
+    my @err = sort { $err{$a} <=> $err{$b} }
+       grep { $err{$_} =~ /-?\d+$/ } keys %err;
 
     foreach $err (@err) {
        print "\t$err => $err{$err},\n";