(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

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;
 }