This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Sanity check on Errno values.
[perl5.git] / 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";