cosmetic formatting

git-svn-id: svn://tug.org/texlive/trunk@15731 c570f23f-e606-0410-a88d-b1316a301751

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 ();