diff options
author | rmanfredi <rmanfredi@2592e710-e01b-42a5-8df0-11608a6cc53d> | 2008-01-04 23:14:00 +0000 |
---|---|---|
committer | rmanfredi <rmanfredi@2592e710-e01b-42a5-8df0-11608a6cc53d> | 2008-01-04 23:14:00 +0000 |
commit | 80f66fdd1d400ef2d592680beec4871e4e023b95 (patch) | |
tree | 64777fbe1a0b811e9a8ffb66231b2b3966e59608 /pat | |
parent | 77e08c92c85470ea1e3754effce85283ca25a41d (diff) |
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
Diffstat (limited to 'pat')
-rwxr-xr-x | pat/patlog.SH | 8 | ||||
-rwxr-xr-x | pat/patmake.SH | 10 |
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"; |