font: prepend generation header in ttfsupport includes
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 19 Feb 2015 16:58:41 +0000 (17:58 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 19 Feb 2015 23:21:53 +0000 (00:21 +0100)
tools/mkttfinfo

index a25d24aab8275a985d59324d2e1f1fff7987ee73..3dfd8b75330483fd345ca20e5123875fae361766 100755 (executable)
@@ -63,7 +63,8 @@ my %FONTID = (
                } $ttf->{head}->getdate),
        );
        $meta{id} = $FONTID{ $meta{name} } // lc $ttfname;
-       say pp(\%meta), ',';
+       say "# automatically generated by $0";
+       say '+', pp(\%meta), ',';
 
        my $support = $ttf->{cmap}->find_ms->{val};
        warn scalar keys %$support, " characters read from $ttfname\n"