From 6b0079b59681c2f6c449f7a29a0fbc19f21b002f Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Fri, 1 Jul 2011 09:54:15 -0600 Subject: [PATCH] mktables: Adjust where .pl suffix gets added to output filenames This is needed for the future commits --- lib/unicore/mktables | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/unicore/mktables b/lib/unicore/mktables index f1bf7c2..2e12632 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); -- 1.8.3.1