diff options
-rwxr-xr-x | Master/tlpkg/bin/ctan2tds | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds index eaf85e9c50b..efb9145b20e 100755 --- a/Master/tlpkg/bin/ctan2tds +++ b/Master/tlpkg/bin/ctan2tds @@ -1305,11 +1305,13 @@ sub xchdir # sub MAKEcopy { my $dest = $_[0] || $DEST; + my $pdir = $packagedir; + if (defined($_[1])) { $pdir .= "/$_[1]"; } - chomp (my $abspackagedir = `cd $packagedir && pwd`); + chomp (my $abspackagedir = `cd $pdir && pwd`); print "\t COPY from $abspackagedir to $dest\n"; - &xchdir ($packagedir); + &xchdir ($pdir); &SYSTEM ("mkdir -p $dest"); # do the copy. @@ -2085,7 +2087,7 @@ sub MAKEperltex { sub MAKEpgf { print "\t SPECIAL pgf\n"; - &MAKEcopy ("$DEST/tex"); + &MAKEcopy ("$DEST/tex", "base"); chdir ("$DEST/tex") || die "chdir($DEST/tex) failed: $!"; print "\t SPECIAL move tex/doc/generic/pgf to doc/generic/pgf\n"; |