macros.pl: need to use $' to get proper left-to-right behaviour

Using ^(.*) means we do right-to-left search, since (.*) is a greedy
expression; instead use $' to get the lead-in part of the string.

1 files changed, 5 insertions, 5 deletions

diff --git a/macros.pl b/macros.pl
index 2c6c1d1..b3084fc 100755
--- a/macros.pl
+++ b/macros.pl
@@ -63,11 +63,11 @@ foreach $fname ( @ARGV ) {
 	    $s1 =~ s/\\/\\\\/g;
 	    $s1 =~ s/"/\\"/g;
 	    $s2 = '';
-	    while ($s1 =~ /^(.*)(\%[a-zA-Z_][a-zA-Z0-9_]*)((\s+)(.*)|)$/) {
-		$s2 .= $1;
-		$pd = $2;
-		$ws = $4;
-		$s1 = $5;
+	    while ($s1 =~ /(\%[a-zA-Z_][a-zA-Z0-9_]*)((\s+)(.*)|)$/) {
+		$s2 .= "$'";
+		$pd = $1;
+		$ws = $3;
+		$s1 = $4;
 		if (defined($pptok_hash{$pd}) &&
 		    $pptok_hash{$pd} <= 127) {
 		    $s2 .= sprintf("\\x%02x\"\"", $pptok_hash{$pd}+128);