Change 13610 by jhi@alpha on 2001/12/11 04:28:31
Make Errno better in BeOS (the second hunk is
good on any platform). Still not working in BeOS
are the E constants that refer BeOS native error
constants (B_...) which are enums (*groan*).
Affected files ...
.... //depot/perl/ext/Errno/Errno_pm.PL#30 edit
Differences ...
==== //depot/perl/ext/Errno/Errno_pm.PL#30 (text) ====
Index: perl/ext/Errno/Errno_pm.PL
--- perl/ext/Errno/Errno_pm.PL.~1~ Mon Dec 10 21:45:05 2001
+++ perl/ext/Errno/Errno_pm.PL Mon Dec 10 21:45:05 2001
@@ -109,6 +109,10 @@
# we might miss out on compiler-specific ones
$file{"$ENV{GUSI}include:sys:errno.h"} = 1;
+ } elsif ($^O eq 'beos') {
+ # hidden in a special place
+ $file{'/boot/develop/headers/posix/errno.h'} = 1;
+
} else {
open(CPPI,"> errno.c") or
die "Cannot open errno.c";
@@ -202,6 +206,7 @@
my($name,$expr);
next unless ($name, $expr) = /"(.*?)"\s*\[\s*\[\s*(.*?)\s*\]\s*\]/;
next if $name eq $expr;
+ $expr =~ s/(\d+)[LU]+\b/$1/g; # 2147483647L et alia
$err{$name} = eval $expr;
}
close(CPPO);
End of Patch.
