Change 14784 by jhi@alpha on 2002/02/20 14:38:14
Subject: [ID 20020220.002] Perl 5.7.2 porting patches for POSIX 1003.1-2001
hosts
From: Paul Eggert <[EMAIL PROTECTED]>
Date: Wed, 20 Feb 2002 03:03:51 -0800 (PST)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/Configure#409 edit
.... //depot/perl/Porting/pumpkin.pod#34 edit
.... //depot/perl/hints/freebsd.sh#22 edit
.... //depot/perl/hints/irix_6.sh#57 edit
.... //depot/perl/pod/perlhack.pod#46 edit
Differences ...
==== //depot/perl/Configure#409 (xtext) ====
Index: perl/Configure
--- perl/Configure.~1~ Wed Feb 20 07:45:05 2002
+++ perl/Configure Wed Feb 20 07:45:05 2002
@@ -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:20:07 EET 2002 [metaconfig 3.0 PL70]
+# Generated on Wed Feb 20 17:35:55 EET 2002 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by [EMAIL PROTECTED])
cat >c1$$ <<EOF
@@ -1706,7 +1706,7 @@
echo " "
if test -f "$rsrc/MANIFEST"; then
echo "First let's make sure your kit is complete. Checking..." >&4
- awk '$1 !~ /PACK[A-Z]+/ {print $1}' "$rsrc/MANIFEST" | split -50
+ awk '$1 !~ /PACK[A-Z]+/ {print $1}' "$rsrc/MANIFEST" | split
rm -f missing
tmppwd=`pwd`
for filelist in x??; do
@@ -4282,7 +4282,7 @@
for thisdir in $libspath; do
xxx=''
if $test ! -f "$xxx" -a "X$ignore_versioned_solibs" = "X"; then
- xxx=`ls $thisdir/lib$thislib.$so.[0-9] 2>/dev/null|tail -1`
+ xxx=`ls $thisdir/lib$thislib.$so.[0-9] 2>/dev/null|sed -n '$p'`
$test -f "$xxx" && eval $libscheck
$test -f "$xxx" && libstyle=shared
fi
@@ -15692,7 +15692,7 @@
set signal
if eval $compile_ok; then
- $run ./signal$_exe | $sort -n +1 | $uniq | $awk -f signal.awk >signal.lst
+ $run ./signal$_exe | $sort -n -k 2 | $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
@@ -15726,7 +15726,7 @@
done
if $test -s signal.ls1; then
$cat signal.nsg signal.ls1 |
- $sort -n +1 | $uniq | $awk -f signal.awk >signal.lst
+ $sort -n -k 2 | $uniq | $awk -f signal.awk >signal.lst
fi
fi
==== //depot/perl/Porting/pumpkin.pod#34 (text) ====
Index: perl/Porting/pumpkin.pod
--- perl/Porting/pumpkin.pod.~1~ Wed Feb 20 07:45:05 2002
+++ perl/Porting/pumpkin.pod Wed Feb 20 07:45:05 2002
@@ -501,7 +501,7 @@
mv y.tab.c perly.c
patch perly.c <perly_c.diff
# manually apply any failed hunks
- diff -c2 perly.c.orig perly.c >perly_c.diff
+ diff -c perly.c.orig perly.c >perly_c.diff
One chunk of lines that often fails begins with
==== //depot/perl/hints/freebsd.sh#22 (text) ====
Index: perl/hints/freebsd.sh
--- perl/hints/freebsd.sh.~1~ Wed Feb 20 07:45:05 2002
+++ perl/hints/freebsd.sh Wed Feb 20 07:45:05 2002
@@ -173,7 +173,7 @@
cat > UU/usethreads.cbu <<'EOCBU'
case "$usethreads" in
$define|true|[yY]*)
- lc_r=`/sbin/ldconfig -r|grep ':-lc_r'|awk '{print $NF}'|tail -1`
+ lc_r=`/sbin/ldconfig -r|grep ':-lc_r'|awk '{print $NF}'|sed -n '$p'`
case "$osvers" in
0*|1*|2.0*|2.1*) cat <<EOM >&4
I did not know that FreeBSD $osvers supports POSIX threads.
==== //depot/perl/hints/irix_6.sh#57 (text) ====
Index: perl/hints/irix_6.sh
--- perl/hints/irix_6.sh.~1~ Wed Feb 20 07:45:05 2002
+++ perl/hints/irix_6.sh Wed Feb 20 07:45:05 2002
@@ -95,7 +95,7 @@
# objects in the library are of the same ABI we are compiling
# against. Albert Chin-A-Young <[EMAIL PROTECTED]>
libscheck='case "$xxx" in
-*.a) /bin/ar p $xxx `/bin/ar t $xxx | /usr/bsd/head -1` >$$.o;
+*.a) /bin/ar p $xxx `/bin/ar t $xxx | sed q` >$$.o;
case "`/usr/bin/file $$.o`" in
*N32*) rm -f $$.o ;;
*) rm -f $$.o; xxx=/no/n32$xxx ;;
==== //depot/perl/pod/perlhack.pod#46 (text) ====
Index: perl/pod/perlhack.pod
--- perl/pod/perlhack.pod.~1~ Wed Feb 20 07:45:05 2002
+++ perl/pod/perlhack.pod Wed Feb 20 07:45:05 2002
@@ -348,7 +348,7 @@
It's then up to you to apply these patches, using something like
- # last=`ls -rt1 *.gz | tail -1`
+ # last=`ls -rt1 *.gz | sed -n '$p'`
# rsync -avz rsync://ftp.linux.activestate.com/perl-current-diffs/ .
# find . -name '*.gz' -newer $last -exec gzcat {} \; >blead.patch
# cd ../perl-current
End of Patch.
