summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-install-pkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-10-09 23:20:31 +0000
committerKarl Berry <karl@freefriends.org>2009-10-09 23:20:31 +0000
commit5c7dfba430b9679529d39eda08aabd4920437a1d (patch)
tree397158a77f75153c722a47c464ecbc78eaf11c7e /Master/tlpkg/bin/tl-update-install-pkg
parent70c11aab091f4ddafef9bcc86494fbabb59af5dc (diff)
cosmetic formatting
git-svn-id: svn://tug.org/texlive/trunk@15731 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-install-pkg')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-install-pkg45
1 files changed, 22 insertions, 23 deletions
diff --git a/Master/tlpkg/bin/tl-update-install-pkg b/Master/tlpkg/bin/tl-update-install-pkg
index a1487936a41..c5e2484c24b 100755
--- a/Master/tlpkg/bin/tl-update-install-pkg
+++ b/Master/tlpkg/bin/tl-update-install-pkg
@@ -10,17 +10,15 @@
BEGIN {
$^W = 1;
- my $me=$0;
- $thisdir=`pwd`;
- chomp ($thisdir);
- if ($me=~m!/!) {
- ($::installerdir=$me)=~s!(.*)/.*$!$1/../..!;
+ my $me = $0;
+ chomp ($thisdir = `pwd`);
+ if ($me =~ m!/!) {
+ ($::installerdir = $me) =~ s!(.*)/.*$!$1/../..!;
} else {
- $::installerdir='../..';
+ $::installerdir = '../..';
}
chdir($installerdir) || die "$0: chdir($installerdir) failed: $!";
- $installerdir=`pwd`;
- chomp ($installerdir);
+ chomp ($installerdir=`pwd`);
unshift (@INC, "$::installerdir/tlpkg");
#
$ENV{"PATH"} = "/usr/local/gnu/bin:$ENV{PATH}"; # for sha256sum
@@ -70,24 +68,25 @@ usage if $opt_help;
die "$0: extra argument(s) @ARGV; try --help if you need it.\n" if @ARGV;
# determine directories.
-my $sys_tmp=get_system_tmpdir or die "no system TMPDIR found";
-my $tmpdir="$sys_tmp/install-tl-$$";
-my $inst_tmp="$sys_tmp/install-tl-$$/install-tl";
+my $sys_tmp = get_system_tmpdir or die "no system TMPDIR found";
+my $tmpdir = "$sys_tmp/install-tl-$$";
+my $inst_tmp = "$sys_tmp/install-tl-$$/install-tl";
-die "$0: the output directory must be specified; try --help if you need it.\n"
+die "$0: output directory must be specified; try --help if you need it.\n"
if ! $opt_outputdir;
my $outputdir = $opt_outputdir;
my @signals = qw(HUP INT ILL FPE SEGV TERM ABRT QUIT BUS PIPE);
-
-sub cleanup {
- if (-d "$tmpdir") {
- system('rm', '-rf', "$tmpdir");
+#
+sub cleanup
+{
+ if (-d $tmpdir) {
+ system ('rm', '-rf', $tmpdir);
}
}
-
-foreach my $signal (@signals) {
- $SIG{"$signal"}=\&cleanup;
+#
+for my $signal (@signals) {
+ $SIG{"$signal"} = \&cleanup;
}
# create directories.
@@ -138,7 +137,7 @@ push @unix, $tlptrans->runfiles;
# add the texlive-XX docs in pdf and html format if the option is given.
#
if ($opt_texlivedocs) {
- foreach my $p (qw(texlive-en texlive-de texlive-fr texlive-cz
+ for my $p (qw(texlive-en texlive-de texlive-fr texlive-cz
texlive-pl texlive-ru texlive-zh-cn)) {
my $tlpdocs = $tlpdb->get_package($p);
if (!defined $tlpdocs) {
@@ -149,7 +148,7 @@ if ($opt_texlivedocs) {
}
}
my %tlpbin = %{$tlp->binfiles};
-foreach my $a (keys %tlpbin) {
+for my $a (keys %tlpbin) {
next if ($a =~ m/win32/);
push (@unix, @{$tlpbin{$a}});
}
@@ -162,10 +161,10 @@ if (defined $tlpbin{"win32"}) {
# main.
copy_files (@unix);
-make_zip ('tgz');
+make_zip ("tgz");
copy_files (@win32);
-make_zip ('zip');
+make_zip ("zip");
install_files ();