Errno update from maint-5.005 (changes #2583, #2710).
Jarkko Hietaniemi [Tue, 2 Feb 1999 11:29:13 +0000 (11:29 +0000)]
p4raw-link: @2583 on //depot/maint-5.005/perl: 3a193be45bc5e7d45057877fdb7e161e2341e0c1

p4raw-id: //depot/cfgperl@2762

Configure
ext/Errno/Errno_pm.PL

index 67ed607..2979dab 100755 (executable)
--- 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
index 3df9881..f312a6c 100644 (file)
@@ -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";
     }