Applied diff from H.Merijn Brand to keep it working with perl 5.10, which

no longer supports the old $* perl4 variable to request multiline matching.


git-svn-id: https://dist.svn.sourceforge.net/svnroot/dist/trunk/dist@20 190e5f8e-a817-0410-acf6-e9863daed9af

2 files changed, 7 insertions, 11 deletions

diff --git a/pat/patlog.SH b/pat/patlog.SH
index eb3fdfa..ad3fbd3 100755
--- a/pat/patlog.SH
+++ b/pat/patlog.SH
@@ -103,12 +103,10 @@ if (-s ".logs$bnum") {
 		}
 	}
 	close LOGS;
-	$* = 1;
 	$subj = $logs;
-	$logs =~ s/^patch\d+:\s*/\t/g;
-	$logs =~ s/\n/\n\n/g;
-	$subj =~ s/^patch\d+:\s*/Subject: /g;
-	$* = 0;
+	$logs =~ s/^patch\d+:\s*/\t/gm;
+	$logs =~ s/\n/\n\n/gm;
+	$subj =~ s/^patch\d+:\s*/Subject: /gm;
 } else {
 	$subj = "Subject: \n";
 }
diff --git a/pat/patmake.SH b/pat/patmake.SH
index 0ff82fd..3d476f1 100755
--- a/pat/patmake.SH
+++ b/pat/patmake.SH
@@ -107,15 +107,13 @@ if ($#ARGV > 0) {
 		$mf .= $_ if /^[a-z.]+\s*:/;	# Rules in makefile
 	}
 }
-$* = 1;
 $after = '';
 $after .= "\t\tConfigure -ders\n" if -f 'Configure';
-$after .= "\t\tmake depend\n" if $mf =~ /^depend:/;
+$after .= "\t\tmake depend\n" if $mf =~ /^depend:/m;
 $after .= "\t\tmake\n" if $mf;
-$after .= "\t\tmake test\n" if $mf =~ /^test:/;
-$after .= "\t\tmake install\n" if $mf =~ /^install:/;
-$after .= "\t\tmake install.man\n" if $mf =~ /^install\.man:/;
-$* = 0;
+$after .= "\t\tmake test\n" if $mf =~ /^test:/m;
+$after .= "\t\tmake install\n" if $mf =~ /^install:/m;
+$after .= "\t\tmake install.man\n" if $mf =~ /^install\.man:/m;
 
 chdir 'bugs' if -d 'bugs';
 die "$progname: patch #$bnum already exists.\n" if -f "patch$bnum";