diff options
| author | Marnix (ain't unix!) A. van Ammers <pttesac!marnix!vanam> | 1988-01-29 19:58:36 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1988-01-29 19:58:36 +0000 |
| commit | d96024cf1e3df534df4aa43f818004cbc6477660 (patch) | |
| tree | 71a70d586b52938a588c9278626b663046a478ec /Configure | |
| parent | a559c25918b1466cdb50c9f978a86f01be0bac10 (diff) | |
| download | perl-d96024cf1e3df534df4aa43f818004cbc6477660.tar.gz | |
perl 1.0 patch 9: 3 portability problems
There's a #define YYDEBUG; in perl.h that ought to be
#define YYDEBUG 1. Interesting that it works the former way on
any systems at all.
Patch 2 was defective and introduced a couple of lines with missing
right parens. Learn something old every day...
Some awks can't handle
awk '$6 != "" {print substr($6,2,100)}' </tmp/Cppsym2$$ ;;
if field 6 doesn't exist. Changed conditional to NF > 5.
There was also a problem that I fixed in metaconfig that involved
Configure grepping .SH files out of MANIFEST when the .SH was only
in the commentary. This doesn't affect perl's Configure because
there aren't any comments containing .SH in the MANIFEST file.
But that's the nice thing about metaconfig--you generate a new
Configure script and also get the changes you don't need (yet).
Diffstat (limited to 'Configure')
| -rwxr-xr-x | Configure | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -8,7 +8,7 @@ # and edit it to reflect your system. Some packages may include samples # of config.h for certain machines, so you might look for one of those.) # -# $Header: Configure,v 1.0.1.3 88/01/26 14:14:14 root Exp $ +# $Header: Configure,v 1.0.1.4 88/01/30 08:51:49 root Exp $ # # Yes, you may rip this off to use in other distribution packages. # (Note: this Configure script was generated automatically. Rather than @@ -998,7 +998,7 @@ exit 0; _ _ _ _\1\\ \1\\ echo exit 1 >>/tmp/Cppsym\$\$ $cpp $cppminus </tmp/Cppsym\$\$ >/tmp/Cppsym2\$\$ case "\$list" in -true) awk '\$6 != "" {print substr(\$6,2,100)}' </tmp/Cppsym2\$\$ ;; +true) awk 'NF > 5 {print substr(\$6,2,100)}' </tmp/Cppsym2\$\$ ;; *) sh /tmp/Cppsym2\$\$ status=\$? @@ -1379,7 +1379,7 @@ esac echo " " echo "Doing variable substitutions on .SH files..." -set x `$grep '\.SH' <MANIFEST | awk '{print $1}'` +set x `awk '{print $1}' <MANIFEST | $grep '\.SH'` shift case $# in 0) set x *.SH; shift;; |