diff options
author | rmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af> | 2008-01-04 23:14:00 +0000 |
---|---|---|
committer | rmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af> | 2008-01-04 23:14:00 +0000 |
commit | 1e7ef113b85f4e4e10ffaa2c3f362645a7c7eecf (patch) | |
tree | 64777fbe1a0b811e9a8ffb66231b2b3966e59608 /jmake/jmake.SH | |
parent | 3917f89474931cf825dd53e6bf00665992b9049b (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: https://dist.svn.sourceforge.net/svnroot/dist/trunk/dist@20 190e5f8e-a817-0410-acf6-e9863daed9af
Diffstat (limited to 'jmake/jmake.SH')
-rwxr-xr-x | jmake/jmake.SH | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/jmake/jmake.SH b/jmake/jmake.SH index 3f676b2..bdb5de7 100755 --- a/jmake/jmake.SH +++ b/jmake/jmake.SH @@ -143,13 +143,11 @@ while (<CPP>) { s/@!\s?/\n/g; s/@@\s?/\n\t/g; - $* = 1; # A '\r' is added to all lines, in order to let 'split' keep them # As lines ending with '\' won't fit in the next regular # expression (why ?), we have to treat that special case separately - s/\n$/\r\n/g; - s/\\\s*$/\\\r/g; # Remove spaces after final '\' and add '\r' - $* = 0; + s/\n$/\r\n/gm; + s/\\\s*$/\\\r/gm; # Remove spaces after final '\' and add '\r' @macro = split(/\n/); for ($i = 0; $i <= $#macro; $i++) { chop($_ = $macro[$i]); # Remove final '\r' |