summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-12-01 16:22:10 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-12-01 16:22:10 +0000
commitd5687fcf08f951399635388e1c5998bc5bf02276 (patch)
treeb84cd7607f7a7a84c86ed4355426ba17d11ccfe0 /perl-install/any.pm
parent8606fb5fc4381724ed7d4cafb99c67bd66c0b225 (diff)
downloaddrakx-d5687fcf08f951399635388e1c5998bc5bf02276.tar
drakx-d5687fcf08f951399635388e1c5998bc5bf02276.tar.gz
drakx-d5687fcf08f951399635388e1c5998bc5bf02276.tar.bz2
drakx-d5687fcf08f951399635388e1c5998bc5bf02276.tar.xz
drakx-d5687fcf08f951399635388e1c5998bc5bf02276.zip
drakx_version: have a suitable value for move
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm3
1 files changed, 2 insertions, 1 deletions
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() {