font: fix single-line arrays in cover include
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 16 Mar 2015 17:40:42 +0000 (18:40 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 9 Jun 2015 03:43:44 +0000 (05:43 +0200)
tools/mkfontinfo

index 84e7a25147bb80a886c3fcf7f42daef6dc2b16ed..60726002edd054248fdcdd6688a9ccf40b9e26ef 100755 (executable)
@@ -130,7 +130,7 @@ $charlist{osdefault} = [qw( win95 win8 mac109 android oss )];
 say "# automatically generated by $0";
 say 'use utf8;';
 say '+', pp(\%charlist) =~ s{
-       ( \[ \s* \d [^]]* ) ,\s*  # arrays of numbers, excluding trailing comma
+       ( \[ \s* \d [^]]* ) ,\s* (?= \] )  # arrays of numbers, excluding trailing comma
 }{ $1 =~ s/\s+//gr }msxgre;  # strip whitespace
 
 __END__