From d5687fcf08f951399635388e1c5998bc5bf02276 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 1 Dec 2003 16:22:10 +0000 Subject: drakx_version: have a suitable value for move --- perl-install/any.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/any.pm b/perl-install/any.pm index d28cae3e1..baf5b6e65 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -20,7 +20,8 @@ use log; use c; sub drakx_version() { - sprintf "DrakX v%s built %s", $::testing ? ('TEST', scalar gmtime()) : (split('/', cat_("$ENV{SHARE_PATH}/VERSION")))[2,3]; + $::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_("$ENV{SHARE_PATH}/VERSION")))[2,3]; } sub facesdir() { -- cgit v1.2.1