From 1e7ef113b85f4e4e10ffaa2c3f362645a7c7eecf Mon Sep 17 00:00:00 2001 From: rmanfredi Date: Fri, 4 Jan 2008 23:14:00 +0000 Subject: 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 --- jmake/jmake.SH | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'jmake') 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 () { 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' -- cgit v1.2.3