From: Hans Mulder <hansmu@xs4all.nl>
Date: Sun, 5 Jul 1998 23:23:20 +0000 (+0200)
Subject: patch whitespace-mutiliated; applied manually
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76287dce09265df293372ba2775a5b0e95359fbe;p=p5sagit%2Fp5-mst-13.2.git

patch whitespace-mutiliated; applied manually
	Message-Id: <9807052133.AA28626@icgned.icgroup.nl>
	Subject: [PATCH 5.004_69] building Errno.pm still fails on NeXT

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

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index b669790..dc17b45 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -38,7 +38,7 @@ sub process_file {
     }
     while(<FH>) {
 	$err{$1} = 1
-	    if /^#\s*define\s+(E\w+)\s+/;
+	   if /^\s*#\s*define\s+(E\w+)\s+/;
    }
    close(FH);
 }
@@ -72,7 +72,7 @@ sub get_files {
 	    $pat = '^/\*\s+(.+)\s+\d+\s*:\s+\*/';
 	}
 	else {
-	    $pat = '^#(?:line)?\s+\d+\s+"([^"]+)"';
+	    $pat = '^#(?:line)?\s*\d+\s+"([^"]+)"';
 	}
 	while(<CPPO>) {
 	    $file{$1} = 1 if /$pat/o;
@@ -104,6 +104,9 @@ sub write_errno_pm {
 	$cpp =~ s/sys\$input//i;
 	open(CPPO,"$cpp  errno.c |") or
           die "Cannot exec $Config{cppstdin}";
+    } elsif ($^O eq 'next') {
+	my $cpp = "$Config{cppstdin} $Config{cppflags} $Config{cppminus}";
+	open(CPPO,"$cpp < errno.c |") or die "Cannot exec $cpp";
     } else {
 	open(CPPO,"$Config{cpprun} $Config{cppflags} errno.c |") or
 	    die "Cannot exec $Config{cpprun}";