Fix whitespace issue in the preproc regex

hinrik · hinrik · commit 93614e4addd6 · 2015-02-21T00:41:50.000+01:00
It was requiring 2 or more whitespace instead of 1 or more
diff --git a/preproc.pl b/preproc.pl
@@ -28,7 +28,7 @@
         }
     }
 
-    if ($line =~ /^"\s*$preproc(\w+)$preproc\s+ (?:"(.+)"|'(.*)')\s*$/) {
+    if ($line =~ /^"\s*$preproc(\w+)$preproc\s+(?:"(.+)"|'(.*)')\s*$/) {
         my ($name, $content) = ($1, $2);
         $content =~ s/$preproc(\w+)$preproc/
             die "Replacement for $preproc$1$preproc not found at line $.\n" if !$replacements{$1};

Original file line number	Diff line number	Diff line change
`@@ -28,7 +28,7 @@`
`28`	`28`	`}`
`29`	`29`	`}`
`30`	`30`
`31`		`- if ($line =~ /^"\s$preproc(\w+)$preproc\s+ (?:"(.+)"\|'(.)')\s*$/) {`
	`31`	`+ if ($line =~ /^"\s$preproc(\w+)$preproc\s+(?:"(.+)"\|'(.)')\s*$/) {`
`32`	`32`	`my ($name, $content) = ($1, $2);`
`33`	`33`	`$content =~ s/$preproc(\w+)$preproc/`
`34`	`34`	`die "Replacement for $preproc$1$preproc not found at line $.\n" if !$replacements{$1};`