This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
patch whitespace-mutiliated; applied manually
authorHans Mulder <hansmu@xs4all.nl>
Sun, 5 Jul 1998 23:23:20 +0000 (01:23 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 5 Jul 1998 21:53:30 +0000 (21:53 +0000)
Message-Id: <9807052133.AA28626@icgned.icgroup.nl>
Subject: [PATCH 5.004_69] building Errno.pm still fails on NeXT

p4raw-id: //depot/perl@1326

ext/Errno/Errno_pm.PL

index b669790..dc17b45 100644 (file)
@@ -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}";