From b20e5e476f9d5296b3e695607b947351729ded13 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Aug 2003 15:27:20 +0000
Subject: fix MDK::Common::* explainations

---
 perl-install/standalone.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone.pm')

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index bc78debea..fd20cb374 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -296,7 +296,7 @@ sub import {
     c::openlog($standalone_name."[$$]");
     explanations('### Program is starting ###');
 
-    eval "*MDK::Common::$_ = *$_" foreach @common_functs;
+    eval "*common::$_ = *$_" foreach @common_functs;
 
     foreach my $f (@builtin_functs) {
 	eval "*$_"."::$f = *$f" foreach @drakx_modules;
@@ -321,6 +321,7 @@ sub symlinkf {
 }
 
 sub output {
+    warn "output explanations\n";
     explanations "created file $_[0]";
     goto &MDK::Common::File::output;
 }
-- 
cgit v1.2.1