diff options
| author | Hans Mulder <hansmu@xs4all.nl> | 1998-07-06 01:23:20 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 21:53:30 +0000 |
| commit | 76287dce09265df293372ba2775a5b0e95359fbe (patch) | |
| tree | 9d9b25b49b434d4119b3f62cd64956d512619c08 /ext/Errno | |
| parent | c8db1d390b3c3dc30ed6bb39e447da74c0430a6d (diff) | |
| download | perl-76287dce09265df293372ba2775a5b0e95359fbe.tar.gz | |
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
Diffstat (limited to 'ext/Errno')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index b669790314..dc17b4574d 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}"; |