Re: [ID 20020220.002] Perl 5.7.2 porting patches for POSIX 1003.1-2001 hosts

Message-Id: <200202201923.g1KJN4d06394@shade.twinsun.com>

p4raw-id: //depot/perl@14805

diff --git a/Configure b/Configure
index 5e8b5d0..3712333 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 Wed Feb 20 17:53:32 EET 2002 [metaconfig 3.0 PL70]
+# Generated on Thu Feb 21 08:11:57 EET 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -15638,7 +15638,7 @@ EOCP
 echo $xxx | $tr ' ' $trnl | $sort | $uniq | $awk '
 {
        printf "#ifdef SIG"; printf $1; printf "\n"
-       printf "printf(\""; printf $1; printf " %%d\\n\",SIG";
+       printf "printf(\"%%d "; printf $1; printf "\\n\",SIG";
        printf $1; printf ");\n"
        printf "#endif\n"
 }
@@ -15649,17 +15649,17 @@ END {
 ' >>signal.c
 $cat >signal.awk <<'EOP'
 BEGIN { ndups = 0 }
-$1 ~ /^NSIG$/ { nsig = $2 }
-($1 !~ /^NSIG$/) && (NF == 2) {
-    if ($2 > maxsig) { maxsig = $2 }
-    if (sig_name[$2]) {
-       dup_name[ndups] = $1
-       dup_num[ndups] = $2
+$2 ~ /^NSIG$/ { nsig = $1 }
+($2 !~ /^NSIG$/) && (NF == 2) {
+    if ($1 > maxsig) { maxsig = $1 }
+    if (sig_name[$1]) {
+       dup_name[ndups] = $2
+       dup_num[ndups] = $1
        ndups++ 
     }
     else {
-       sig_name[$2] = $1
-       sig_num[$2] = $2
+       sig_name[$1] = $2
+       sig_num[$1] = $1
     }
 }
 END { 
@@ -15692,7 +15692,7 @@ $cat >>signal_cmd <<'EOS'
 
 set signal
 if eval $compile_ok; then
-       $run ./signal$_exe | $sort -n -k 2 | $uniq | $awk -f signal.awk >signal.lst
+       $run ./signal$_exe | $sort -n | $uniq | $awk -f signal.awk >signal.lst
 else
        echo "(I can't seem be able to compile the whole test program)" >&4
        echo "(I'll try it in little pieces.)" >&4