font: fix single-line arrays in cover include
[sheet.git] / 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__