diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-12-01 16:22:10 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-12-01 16:22:10 +0000 |
| commit | d5687fcf08f951399635388e1c5998bc5bf02276 (patch) | |
| tree | b84cd7607f7a7a84c86ed4355426ba17d11ccfe0 /perl-install | |
| parent | 8606fb5fc4381724ed7d4cafb99c67bd66c0b225 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/any.pm | 3 |
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() { |