summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-01-28 17:26:13 +0000
committerKarl Berry <karl@freefriends.org>2009-01-28 17:26:13 +0000
commit925107e31d76fec749c7dcb9c8f1e9026e896b2b (patch)
tree128dc2786da04ba2d9e1bfc82ac1dd4d8bd43d82 /Master/install-tl
parent83c7b4227ddbcd37a968aaec78b58802ef180cbb (diff)
(opt_version): use perl instead of sed for
extracting from release-texlive.txt, so it works on Windows. git-svn-id: svn://tug.org/texlive/trunk@12002 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl16
1 files changed, 9 insertions, 7 deletions
diff --git a/Master/install-tl b/Master/install-tl
index b412f17da00..54a5443caf2 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -16,9 +16,7 @@
# loading tlpdb, this can take some time ...
# (that, and maybe some others can be done with the waitVariableX
# thingy as described in the Perl/Tk book in the chapter that can be
-# found on the net)
-# (Werner 28.10.08)
-#
+# found on the net) (Werner 28.10.08)
my $svnrev = '$Revision$';
$svnrev =~ m/: ([0-9]+) /;
@@ -204,10 +202,14 @@ if (win32()) {
}
if ($opt_version) {
- print "TeX Live Cross Platform Installer, revision $::installerrevision\n";
- if (-r "release-texlive.txt") {
- # more version info if we can get it.
- print `sed -n '1p;\$p' release-texlive.txt`;
+ print "install-tl (TeX Live Cross Platform Installer)",
+ " revision $::installerrevision\n";
+ if (open (REL_TL, "$::installerdir/release-texlive.txt")) {
+ # print first and last lines, which have the TL version info.
+ my @rel_tl = <REL_TL>;
+ print $rel_tl[0];
+ print $rel_tl[$#rel_tl];
+ close (REL_TL);
}
exit 0;
}