diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-07-01 09:54:15 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-07-03 14:05:49 -0600 |
| commit | 6b0079b59681c2f6c449f7a29a0fbc19f21b002f (patch) | |
| tree | c1620e1540432d8af8899406a4680da2f4a8384e /lib | |
| parent | e6ebc4c0bf6b8c6952cbbfb60fba907966cd7632 (diff) | |
| download | perl-6b0079b59681c2f6c449f7a29a0fbc19f21b002f.tar.gz | |
mktables: Adjust where .pl suffix gets added to output filenames
This is needed for the future commits
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index f1bf7c2e6c..2e1263219e 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -5231,10 +5231,11 @@ sub trace { return main::trace(@_); } my $pre_body = $self->pre_body; push @HEADER, $pre_body, "\n" if $pre_body; - # All these files have a .pl suffix - $file_path{$addr}->[-1] .= '.pl'; + # All these files should have a .pl suffix added to them. + my @file_with_pl = @{$file_path{$addr}}; + $file_with_pl[-1] .= '.pl'; - main::write($file_path{$addr}, + main::write(\@file_with_pl, $annotate, # utf8 iff annotating \@HEADER, \@OUT); @@ -13456,7 +13457,6 @@ END foreach my $cased (keys %caseless_equivalent_to) { my @path = $caseless_equivalent_to{$cased}->file_path; my $path = join '/', @path[1, -1]; - $path =~ s/\.pl//; $utf8::caseless_equivalent_to{$cased} = $path; } push @heavy, simple_dumper (\%utf8::caseless_equivalent_to, ' ' x 4); |