diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 23:33:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 23:33:21 +0000 |
| commit | 42e7b3f9097c8a13ca8d9e79723a43bce29a224b (patch) | |
| tree | 804d0fe1ab58a54423b342efc8286c50e3ca0629 | |
| parent | 70445f1b7bc94d9d1f4f095391ab93f1e6de72ee (diff) | |
| download | drakx-42e7b3f9097c8a13ca8d9e79723a43bce29a224b.tar drakx-42e7b3f9097c8a13ca8d9e79723a43bce29a224b.tar.gz drakx-42e7b3f9097c8a13ca8d9e79723a43bce29a224b.tar.bz2 drakx-42e7b3f9097c8a13ca8d9e79723a43bce29a224b.tar.xz drakx-42e7b3f9097c8a13ca8d9e79723a43bce29a224b.zip | |
(drakx_version): nicer (4gc)
| -rw-r--r-- | perl-install/any.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index fe9d05282..4cdc24e83 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -17,6 +17,10 @@ use run_program; use modules; use log; +sub drakx_version { + sprintf "DrakX v%s built %s", $::testing ? ('TEST', scalar gmtime()) : (split('/', cat_("/usr/share/VERSION")))[2,3]; +} + sub facesdir { my ($prefix) = @_; "$prefix/usr/share/faces/"; |