diff options
Diffstat (limited to 'Master/tlpkg/bin/tl-update-install-pkg')
| -rwxr-xr-x | Master/tlpkg/bin/tl-update-install-pkg | 40 |
1 files changed, 8 insertions, 32 deletions
diff --git a/Master/tlpkg/bin/tl-update-install-pkg b/Master/tlpkg/bin/tl-update-install-pkg index 2887999a231..9e1f429165e 100755 --- a/Master/tlpkg/bin/tl-update-install-pkg +++ b/Master/tlpkg/bin/tl-update-install-pkg @@ -24,15 +24,16 @@ BEGIN { unshift (@INC, "$::installerdir/tlpkg"); } -use TeXLive::TLUtils qw(mkdirhier copy get_system_tmpdir info); -use TeXLive::TLPDB; -use TeXLive::TLPOBJ; +use Cwd qw(abs_path); use Getopt::Long; -use Cwd 'abs_path'; $Getopt::Long::autoabbrev=0; -$opt_help=0; -$opt_verbose=0; +use TeXLive::TLPDB; +use TeXLive::TLPOBJ; +use TeXLive::TLUtils qw(:DEFAULT mkdirhier copy get_system_tmpdir); + +$opt_help = 0; +$opt_verbose = 0; $opt_texlivedocs = 0; sub usage @@ -223,37 +224,12 @@ sub install_files # move what we want (corresponds to the mv into savedir) and erase the rest. xsystem ("mv $junkdir/install-tl/install-tl* ."); + xsystem ("rm -rf tlpkg/TeXLive tlpkg/installer"); xsystem ("mv $junkdir/install-tl/tlpkg/* tlpkg/"); xsystem ("rm -rf $junkdir"); } -# chdir or die. -# -sub xchdir -{ - my ($dir) = @_; - chdir ($dir) || die "chdir($dir) failed: $!"; - #chomp (my $pwd = `pwd`); - #print "\t CHDIR $dir (now $pwd)\n"; -} - - -# system or die. -# -sub xsystem -{ - my (@args) = @_; - print "$0: running system(@args)\n"; - my $retval = system (@args); - if ($retval != 0) { - $retval /= 256; - chomp (my $pwd = `pwd`); - die "system(@args) failed in $pwd, status $retval"; - } -} - - ### Local Variables: ### perl-indent-level: 2 ### tab-width: 2 |