From be54382c6ee2d28448a2bfa85dedcbb6144583ae Mon Sep 17 00:00:00 2001
From: Curtis Jewell <perl@csjewell.fastmail.us>
Date: Tue, 24 Aug 2010 14:07:51 -0600
Subject: Sanity check on Errno values.

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 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'ext/Errno')

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 0899ddea91..d33cd26c39 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -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";
-- 
cgit v1.2.1