From 42e7b3f9097c8a13ca8d9e79723a43bce29a224b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Jan 2001 23:33:21 +0000
Subject: (drakx_version): nicer (4gc)

---
 perl-install/any.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install')

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/";
-- 
cgit v1.2.1