diff options
| author | Norbert Preining <preining@logic.at> | 2008-09-12 17:44:36 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-09-12 17:44:36 +0000 |
| commit | 9ff06aac72bc8c5468d8d19ce8925fa37a45ed73 (patch) | |
| tree | a9e386f942da49bf7a944f1a7bfa553a616bbc56 | |
| parent | 9ae13edea989a6c632f57420919f0fbf61b8f1b7 (diff) | |
fix uninitialized variable if no revision is presetn due to download from the web
git-svn-id: svn://tug.org/texlive/trunk@10572 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index a239b767c72..bf0ac322c26 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -21,8 +21,12 @@ # are necessary. my $svnrev = '$Revision$'; -$svnrev =~ m/: ([0-9]+) /; -my $tlmgrrevision = $1; +my $tlmgrrevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $tlmgrrevision = $1; +} else { + $tlmgrrevision = "unkwown"; +} my $Master; |