From e5d73d7778736a8bd9f7f44aad5289ad2c783a16 Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@jpl-devvax.jpl.nasa.gov>
Date: Fri, 19 Oct 1990 13:31:07 +0000
Subject: perl 3.0 patch #37 (combined patch)

I tried to take the strlen of an integer on systems without wait4()
or waitpid().  For some reason this didn't work too well...

In hash.c there was a call to dbm_nextkey() which needed to be
ifdefed on old dbm systems.

A pattern such as /foo.*bar$/ was wrongly optimized to do
tail matching on "foo".  This was a longstanding bug that
was unmasked by patch 36.

Some systems have some SYS V IPC but not all of it.  Configure
now figures this out.

Patch 36 put the user's PATH in front of Configures, but to make
it work right I needed to change all calls of loc to ./loc in
Configure.

$cryptlib needed to be mentioned in the Makefile.

Apollo 10.3 and Sun 3.5 have some compilation problems, so I
mentioned them in README.

Cray has weird restrictions on setjmp locations--you can't say
if (result = setjmp(...))

Random typos and cleanup.
---
 h2ph.SH | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'h2ph.SH')

diff --git a/h2ph.SH b/h2ph.SH
index 903cad3a70..fa33efc15a 100644
--- a/h2ph.SH
+++ b/h2ph.SH
@@ -6,7 +6,7 @@ case $CONFIG in
 	ln ../../../config.sh . || \
 	(echo "Can't find config.sh."; exit 1)
     fi
-    . config.sh
+    . ./config.sh
     ;;
 esac
 : This forces SH files to create target in same directory as SH file.
@@ -177,7 +177,7 @@ sub expr {
 		$new .= 'defined';
 	    }
 	    elsif (/^\(/) {
-		s/^\((\w),/("$1",/ if $id =~ /^_IO[WR]*$/;	# cheat
+		s/^\((\w),/("$1",/ if $id =~ /^_IO[WR]*$/i;	# cheat
 		$new .= " &$id";
 	    }
 	    elsif ($isatype{$id}) {
-- 
cgit v1.2.1