summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-install-pkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-12-01 01:45:57 +0000
committerKarl Berry <karl@freefriends.org>2008-12-01 01:45:57 +0000
commit81e79cc05b383d38bcf3c7627cfee9079a94f155 (patch)
tree69352bef7120f00ad755158721725de718866a1e /Master/tlpkg/bin/tl-update-install-pkg
parentf33d3e3a849c1da12b3681ea9459703b201befbf (diff)
new utility fns xchdir and xsystem; use them in update-install-pkg; new option to avoid test install in update-tlnet
git-svn-id: svn://tug.org/texlive/trunk@11486 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-install-pkg')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-install-pkg40
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