diff options
Diffstat (limited to 'src/genpubsuffix.pl')
-rw-r--r-- | src/genpubsuffix.pl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/genpubsuffix.pl b/src/genpubsuffix.pl index e95529b..7bc29a8 100644 --- a/src/genpubsuffix.pl +++ b/src/genpubsuffix.pl @@ -56,6 +56,7 @@ use strict; use warnings; use utf8; +use File::Basename; use Tie::IxHash; use IDNA::Punycode; @@ -272,13 +273,13 @@ while (my $line = <$fh>) { } } -# C program header -print <<EOF; -/* - * Generated with the genpubsuffix tool from effective_tld_names.dat - */ -EOF +# C program header +print "/*\n"; +print " * Generated with the genpubsuffix tool.\n"; +print " * From file " . basename($filename) . "\n"; +print " * Converted on " . localtime() . "\n"; +print " */\n\n"; generate_string_table(\%tldtree, \$nodeidx, \%strtab, \$stridx); |