From cc7b8085cd234c4e8478a2f0d459c4fa922cfc28 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 16 Feb 2002 12:33:33 +0000
Subject: - MDK/Common/System.pm: fix call to "output" in "template2file" and
 "update_gnomekderc" - perl-checker: don't fail on non-tagged import

---
 MDK/Common/System.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'MDK/Common/System.pm')

diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm
index f6d724e..4bbedba 100644
--- a/MDK/Common/System.pm
+++ b/MDK/Common/System.pm
@@ -155,7 +155,7 @@ package MDK::Common::System;
 
 use MDK::Common::Math;
 use MDK::Common::File;
-
+use MDK::Common::Func qw(map_each);
 
 use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK %compat_arch $printable_chars $sizeof_int $bitof_int); #);
 @ISA = qw(Exporter);
@@ -312,7 +312,7 @@ sub setVarsInCsh {
 
 sub template2file {
     my ($in, $out, %toreplace) = @_;
-    output $out, map { s/@@@(.*?)@@@/$toreplace{$1}/g; $_ } MDK::Common::File::cat_($in);
+    MDK::Common::File::output($out, map { s/@@@(.*?)@@@/$toreplace{$1}/g; $_ } MDK::Common::File::cat_($in));
 }
 sub template2userfile {
     my ($prefix, $in, $out_rel, $force, %toreplace) = @_;
@@ -327,7 +327,7 @@ sub template2userfile {
 sub update_gnomekderc {
     my ($file, $category, %subst) = @_;
 
-    output $file,
+    MDK::Common::File::output($file,
       (map {
 	  my $l = $_;
 	  s/^\s*//;
@@ -343,7 +343,7 @@ sub update_gnomekderc {
 	  }
 	  $l;
       } MDK::Common::File::cat_($file)),
-	(%subst && "[$category]\n", map_each { "$::a=$::b\n" } %subst); #- if category has not been found above.
+	(%subst && "[$category]\n", map_each { "$::a=$::b\n" } %subst)); #- if category has not been found above.
 }
 
 1;
-- 
cgit v1.2.1