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

1 files changed, 3 insertions, 5 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";
 }