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: svn://svn.code.sf.net/p/dist/code/trunk/dist@20 2592e710-e01b-42a5-8df0-11608a6cc53d

2 files changed, 3 insertions, 6 deletions

diff --git a/bin/manilist.SH b/bin/manilist.SH
index 75dd073..1bb8f3f 100755
--- a/bin/manilist.SH
+++ b/bin/manilist.SH
@@ -472,8 +472,7 @@ EOF
 # Remove ':' quotations in front of the lines
 sub q {
 	local($_) = @_;
-	local($*) = 1;
-	s/^://g;
+	s/^://gm;
 	$_;
 }
 
diff --git a/bin/perload b/bin/perload
index 2354790..e71cbdd 100755
--- a/bin/perload
+++ b/bin/perload
@@ -273,8 +273,7 @@ if (@Data > 0) {
 :		unless seek(main'DATA, $pos, 0);
 :	local($/) = "\n}";
 :	local($body) = scalar(<main'DATA>);
-:	local($*) = 1;
-:	die "End of file found while loading $_[0].\n" unless $body =~ /^\}$/;
+:	die "End of file found while loading $_[0].\n" unless $body =~ /^\}$/m;
 EOC
 	if ($opt_t) {
 		print &q(<<'EOC');
@@ -462,8 +461,7 @@ sub flush_comment {
 
 sub q {
 	local($_) = @_;
-	local($*) = 1;
-	s/^://g;
+	s/^://gm;
 	$_;
 }