diff options
| author | Tony Cook <tony@develop-help.com> | 2018-03-01 15:42:56 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2018-03-06 14:56:35 +1100 |
| commit | 74e28a4a737c72840f2576bed7ebacf4a288760e (patch) | |
| tree | 842113c66cf01e5a9466b0e5e326a9c69081ccab /regen | |
| parent | b857191d01c23df63dc1112e443b194a13305179 (diff) | |
| download | perl-74e28a4a737c72840f2576bed7ebacf4a288760e.tar.gz | |
(perl #132925) don't use $0 to get the name of mk_invlists.pl
Other regen scripts simply embed the name as a literal, using $0
means that the output varies depending on the path used to call
regen/mk_invlists.pl.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_invlists.pl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 00b929eec7..de9adf73c4 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -36,7 +36,7 @@ my $numeric_re = qr/ ^ -? \d+ (:? \. \d+ )? $ /ax; my $enum_name_re = qr / ^ [[:alpha:]] \w* $ /ax; my $out_fh = open_new('charclass_invlists.h', '>', - {style => '*', by => $0, + {style => '*', by => 'regen/mk_invlists.pl', from => "Unicode::UCD"}); my $in_file_pound_if = 0; @@ -2235,10 +2235,11 @@ output_WB_table(); end_file_pound_if; my $sources_list = "lib/unicore/mktables.lst"; -my @sources = ($0, qw(lib/unicore/mktables - lib/Unicode/UCD.pm - regen/charset_translations.pl - )); +my @sources = qw(regen/mk_invlists.pl + lib/unicore/mktables + lib/Unicode/UCD.pm + regen/charset_translations.pl + ); { # Depend on mktables’ own sources. It’s a shorter list of files than # those that Unicode::UCD uses. |