diff options
author | Karl Berry <karl@freefriends.org> | 2009-10-09 23:20:31 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-10-09 23:20:31 +0000 |
commit | 5c7dfba430b9679529d39eda08aabd4920437a1d (patch) | |
tree | 397158a77f75153c722a47c464ecbc78eaf11c7e /Master/tlpkg/bin/tl-update-install-pkg | |
parent | 70c11aab091f4ddafef9bcc86494fbabb59af5dc (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-x | Master/tlpkg/bin/tl-update-install-pkg | 45 |
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 (); |