From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 2 Feb 1999 11:29:13 +0000 (+0000)
Subject: Errno update from maint-5.005 (changes #2583, #2710).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=def887e857f95c8bcce66cee167ba8fbaea9a17a;p=p5sagit%2Fp5-mst-13.2.git

Errno update from maint-5.005 (changes #2583, #2710).

p4raw-link: @2583 on //depot/maint-5.005/perl: 3a193be45bc5e7d45057877fdb7e161e2341e0c1

p4raw-id: //depot/cfgperl@2762
---

diff --git a/Configure b/Configure
index 67ed607..2979dab 100755
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Tue Feb  2 12:38:43 EET 1999 [metaconfig 3.0 PL70]
+# Generated on Tue Feb  2 13:28:17 EET 1999 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.com)
 
 cat >/tmp/c1$$ <<EOF
@@ -3784,7 +3784,7 @@ false)
 esac
 
 case "$cppstdin" in
-"$wrapper") ;;
+"$wrapper"|'cppstdin') ;;
 *) $rm -f $wrapper;;
 esac
 $rm -f testcpp.c testcpp.out
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 3df9881..f312a6c 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -31,7 +31,7 @@ sub process_file {
 	}     
     } else {
 	unless(open(FH,"< $file")) {
-	    # This file could be a temporay file created by cppstdin
+	    # This file could be a temporary file created by cppstdin
 	    # so only warn under -w, and return
             warn "Cannot open '$file'" if $^W;
             return;
@@ -44,6 +44,24 @@ sub process_file {
    close(FH);
 }
 
+my $cppstdin;
+
+sub default_cpp {
+    unless (defined $cppstdin) {
+	use File::Spec;
+	$cppstdin = $Config{cppstdin};
+	my $upup_cppstdin = File::Spec->catfile(File::Spec->updir,
+						File::Spec->updir,
+						"cppstdin");
+	my $cppstdin_is_wrapper =
+	    ($cppstdin eq 'cppstdin'
+		and -f $upup_cppstdin
+		    and -x $upup_cppstdin);
+	$cppstdin = $upup_cppstdin if $cppstdin_is_wrapper;
+    }
+    return "$cppstdin $Config{cppflags} $Config{cppminus}";
+}
+
 sub get_files {
     my %file = ();
     # VMS keeps its include files in system libraries (well, except for Gcc)
@@ -74,7 +92,7 @@ sub get_files {
 	    open(CPPO,"$Config{cpprun} $Config{cppflags} errno.c |") or
 		die "Cannot run '$Config{cpprun} $Config{cppflags} errno.c'";
 	} else {
-	    my $cpp = "$Config{cppstdin} $Config{cppflags} $Config{cppminus}";
+	    my $cpp = default_cpp();
 	    open(CPPO,"$cpp < errno.c |") or
 		die "Cannot exec $cpp";
 	}
@@ -106,6 +124,10 @@ sub get_files {
 sub write_errno_pm {
     my $err;
 
+    # quick sanity check
+
+    die "No error definitions found" unless keys %err;
+
     # create the CPP input
 
     open(CPPI,"> errno.c") or
@@ -130,7 +152,7 @@ sub write_errno_pm {
 	open(CPPO,"$Config{cpprun} $Config{cppflags} errno.c |") or
 	    die "Cannot run '$Config{cpprun} $Config{cppflags} errno.c'";
     } else {
-	my $cpp = "$Config{cppstdin} $Config{cppflags} $Config{cppminus}";
+	my $cpp = default_cpp();
 	open(CPPO,"$cpp < errno.c |")
 	    or die "Cannot exec $cpp";
     }