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/";