diff options
author | Norbert Preining <preining@logic.at> | 2007-12-03 06:59:08 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-03 06:59:08 +0000 |
commit | fb262431c19afce0494dc3943df8fd3a483fa2ec (patch) | |
tree | 14db43a6a28848d4da8cad4677af0023a51619ec | |
parent | 9c03f70819a69618c0fd3c919d0beba8f7fa0da4 (diff) |
fixes for perl warnings
git-svn-id: svn://tug.org/texlive/trunk@5689 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 83943141b64..e415ae6b5b8 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -208,7 +208,7 @@ sub add_tlpcontainer { if (defined($archrefs)) { @archs = @$archrefs; } - my $cwd = getcwd; + my $cwd = getcwd(); if ($ziplocation !~ m,^/,) { $ziplocation = "$cwd/$ziplocation"; } @@ -228,9 +228,9 @@ sub _add_tlpcontainer { # WARNING: If you change the location of the texlive.tlpdb this # has to be changed, too!! if (not(defined($dest))) { - my $cwd = getcwd; + my $cwd = getcwd(); chdir($self->location . "/.."); - $dest = getcwd; + $dest = getcwd(); chdir($cwd); } my $container = "$ziplocation/$package"; |