diff options
author | Daniel Elstner <danielk@openismus.com> | 2009-09-02 03:28:53 +0200 |
---|---|---|
committer | Daniel Elstner <danielk@openismus.com> | 2009-09-02 03:28:53 +0200 |
commit | 58352faf6fcec7742a23fe5acf64e1e656f57343 (patch) | |
tree | 3eaed2abf1e5bb07c059e1e2ecbe2bd755cbab5e /util | |
parent | 0cf9833920051a4841cd6ffe68b6c46a29c71c79 (diff) | |
download | mm-common-58352faf6fcec7742a23fe5acf64e1e656f57343.tar.gz |
Concatenate the destination path only when needed
* util/doc-install.pl: Move the assignment to $out_file into the
conditional block where it is actually used.
Diffstat (limited to 'util')
-rw-r--r-- | util/doc-install.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/util/doc-install.pl b/util/doc-install.pl index 19515ad..aeab988 100644 --- a/util/doc-install.pl +++ b/util/doc-install.pl @@ -207,7 +207,6 @@ my %basename_hash = (); foreach my $in_name (@ARGV) { my $basename = path_basename($in_name); - my $out_name = File::Spec->catfile($target_dir, $basename); # If there are multiple files with the same base name in the list, only # the first one will be installed. This behavior makes it very easy to @@ -215,6 +214,7 @@ foreach my $in_name (@ARGV) unless (exists $basename_hash{$basename}) { $basename_hash{$basename} = undef; + my $out_name = File::Spec->catfile($target_dir, $basename); install_file($in_name, $out_name, $basename); } } |