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 (file)
--- 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}";