diff options
author | Karl Williamson <khw@cpan.org> | 2019-03-11 11:18:18 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-03-12 09:53:21 -0600 |
commit | a3bc64163aa92603c939d88653090ec5e9aa2677 (patch) | |
tree | 33c25db9ca7d3d1504c3f0edb4ea8e3d8df1aefb /regen/mk_invlists.pl | |
parent | 62e88327b15915f71012e8501cf47ee921583f7d (diff) | |
download | perl-a3bc64163aa92603c939d88653090ec5e9aa2677.tar.gz |
regen/mk_invlists.pl: Remove stray debugging stmts
These debugging lines were left in by 21c34e9717d
Diffstat (limited to 'regen/mk_invlists.pl')
-rw-r--r-- | regen/mk_invlists.pl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 77f3304639..b33c3e4888 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -3022,7 +3022,6 @@ my @sources = qw(regen/mk_invlists.pl read_only_bottom_close_and_rename($out_fh, \@sources); -use Data::Dumper; my %name_to_index; for my $i (0 .. @enums - 1) { my $loose_name = $enums[$i] =~ s/^$table_name_prefix//r; @@ -3050,7 +3049,6 @@ my $uni_pl = open_new('lib/unicore/uni_keywords.pl', '>', { print $uni_pl "\%utf8::uni_prop_ptrs_indices = (\n"; for my $name (sort keys %name_to_index) { - print STDERR __LINE__, $name, "\n" unless defined $name_to_index{$name}; print $uni_pl " '$name' => $name_to_index{$name},\n"; } print $uni_pl ");\n\n1;\n"; |