diff options
| author | Ingo Weinhold <unknown> | 2004-11-30 15:38:32 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-12-01 13:44:24 +0000 |
| commit | dbc1d98621f53e4a3938cf011ae90a189e72f69f (patch) | |
| tree | 10af181eb3e36b988f92fa611324750c78226ee7 /ext/Errno | |
| parent | acd8d558460f297a79cf62ccca790c90790f8058 (diff) | |
| download | perl-dbc1d98621f53e4a3938cf011ae90a189e72f69f.tar.gz | |
[perl #32717] BeOS specific Updates
From: Ingo Weinhold (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-32717-101307.19.7097750538509@perl.org>
p4raw-id: //depot/perl@23584
Diffstat (limited to 'ext/Errno')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index a795cfc822..de4d5495bc 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -208,7 +208,7 @@ sub write_errno_pm { close(CPPI); - unless ($^O eq 'MacOS') { # trust what we have + unless ($^O eq 'MacOS' || $^O eq 'beos') { # trust what we have / get later # invoke CPP and read the output if ($^O eq 'VMS') { @@ -248,17 +248,19 @@ sub write_errno_pm { # Many of the E constants (including ENOENT, which is being # used in the Perl test suite a lot), are available only as # enums in BeOS, so compiling and executing some code is about - # only way to find out what the numeric Evalues are. + # only way to find out what the numeric Evalues are. In fact above, we + # didn't even bother to get the values of the ones that have numeric + # values, since we can get all of them here, anyway. if ($^O eq 'beos') { if (open(C, ">errno.c")) { - my @zero = grep { !$err{$_} } keys %err; + my @allerrs = keys %err; print C <<EOF; #include <errno.h> #include <stdio.h> int main() { EOF - for (@zero) { + for (@allerrs) { print C qq[printf("$_ %d\n", $_);] } print C "}\n"; |