This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Since Configure does the signal name/number probe with awk
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 14 Mar 2003 10:27:46 +0000 (10:27 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 14 Mar 2003 10:27:46 +0000 (10:27 +0000)
based on the cpp results (not by really running code), testing
for the signum value is not really helpful if we have runtime
function calls (some signal numbers are dynamic, for example)
(or other extra stuff where the signum value is expected).
(Runtimeness also means that Configure cannot get these right,
anyway.) Better filter in just the constant non-negative numbers.

p4raw-id: //depot/perl@18973

Configure

index 9f2528a..9f12aff 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Fri Mar 14 11:20:02 EET 2003 [metaconfig 3.0 PL70]
+# Generated on Fri Mar 14 13:17:23 EET 2003 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -18770,14 +18770,14 @@ END {
 $cat >signal.awk <<'EOP'
 BEGIN { ndups = 0 }
 $1 ~ /^NSIG$/ { nsig = $2 }
-($1 !~ /^NSIG$/) && (NF == 2) {
+($1 !~ /^NSIG$/) && (NF == 2) && ($2 ~ /^[0-9][0-9]*$/) {
     if ($2 > maxsig) { maxsig = $2 }
     if (sig_name[$2]) {
        dup_name[ndups] = $1
        dup_num[ndups] = $2
        ndups++ 
     }
-    else if ($2 >= 0) {
+    else {
        sig_name[$2] = $1
        sig_num[$2] = $2
     }