From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Dec 2001 04:28:31 +0000 (+0000)
Subject: Make Errno better in BeOS (the second hunk is
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0d3cd356f86a61e8bd16da8cde1ac079d7e66290;p=p5sagit%2Fp5-mst-13.2.git

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*).

p4raw-id: //depot/perl@13610
---

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index efa6130..5a8e9e7 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -109,6 +109,10 @@ sub get_files {
 	# 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 @@ sub write_errno_pm {
 	    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);