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).

diff --git a/Configure b/Configure
index d32c305..85ccf2d 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -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;;

diff --git a/arg.c b/arg.c
index df4887a..4ce4008 100644 (file)
--- a/arg.c
+++ b/arg.c
@@ -1,6 +1,9 @@
-/* $Header: arg.c,v 1.0.1.4 88/01/28 10:22:06 root Exp $
+/* $Header: arg.c,v 1.0.1.5 88/01/30 08:53:16 root Exp $
  *
  * $Log:       arg.c,v $
+ * Revision 1.0.1.5  88/01/30  08:53:16  root
+ * patch9: fixed some missing right parens introduced (?) by patch 2
+ * 
  * Revision 1.0.1.4  88/01/28  10:22:06  root
  * patch8: added eval operator.
  * 
@@ -552,8 +555,8 @@ STR ***retary;
            apush(ary,str_nmake((double)statbuf.st_blksize));
            apush(ary,str_nmake((double)statbuf.st_blocks));
 #else
-           apush(ary,str_make("");
-           apush(ary,str_make("");
+           apush(ary,str_make(""));
+           apush(ary,str_make(""));
 #endif
        }
        sarg = (STR**)safemalloc((max+2)*sizeof(STR*));

diff --git a/patchlevel.h b/patchlevel.h
index a6997a9..618bca4 100644 (file)
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -1 +1 @@
-#define PATCHLEVEL 8
+#define PATCHLEVEL 9

diff --git a/perl.h b/perl.h
index 9b877f3..341afa8 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1,6 +1,9 @@
-/* $Header: perl.h,v 1.0.1.3 88/01/28 10:24:17 root Exp $
+/* $Header: perl.h,v 1.0.1.4 88/01/30 08:54:00 root Exp $
  *
  * $Log:       perl.h,v $
+ * Revision 1.0.1.4  88/01/30  08:54:00  root
+ * patch9: changed #define YYDEBUG; to #define YYDEBUG 1
+ * 
  * Revision 1.0.1.3  88/01/28  10:24:17  root
  * patch8: added eval operator.
  * 
@@ -184,7 +187,7 @@ EXT int debug INIT(0);
 EXT int dlevel INIT(0);
 EXT char debname[40];
 EXT char debdelim[40];
-#define YYDEBUG;
+#define YYDEBUG 1
 extern int yydebug;
 #endif