From 4798bf4d9ffebea5b15aed010dcf0b1c68276920 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 26 Jan 2005 13:46:09 +0000
Subject: drakx_version() is now in install_any and use getFile() to get
 VERSION

---
 perl-install/install_any.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ab29833ec..46549f9a6 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -33,6 +33,11 @@ $asked_medium = $boot_medium;
 
 our $global_ftp_prefix;
 
+sub drakx_version() { 
+    $::move ? sprintf "DrakX-move v%s", cat_('/usr/bin/stage2/move.pm') =~ /move\.pm,v (\S+ \S+ \S+)/
+	    : sprintf "DrakX v%s built %s", $::testing ? ('TEST', scalar gmtime()) : (split('/', cat__(getFile("install/stage2/VERSION"))))[2,3];
+}
+
 #-######################################################################################
 #- Media change variables&functions
 #-######################################################################################
@@ -297,7 +302,7 @@ sub spawnShell() {
     open STDERR, ">&F" or goto cant_spawn;
     close F;
 
-    print any::drakx_version(), "\n";
+    print drakx_version(), "\n";
 
     c::setsid();
 
-- 
cgit v1.2.1