From 8fdfaa1704fb378fbf338cab43327395f00a0461 Mon Sep 17 00:00:00 2001 From: Martin Mares Date: Thu, 30 Oct 2008 22:27:04 +0100 Subject: [PATCH] Configure: Replaced debPrint() by DebugDump(). --- ucw/perl/UCW/Configure.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ucw/perl/UCW/Configure.pm b/ucw/perl/UCW/Configure.pm index 6d4d3f12..b0005eee 100644 --- a/ucw/perl/UCW/Configure.pm +++ b/ucw/perl/UCW/Configure.pm @@ -16,7 +16,7 @@ BEGIN { our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); $VERSION = 1.0; @ISA = qw(Exporter); - @EXPORT = qw(&Init &Log &Notice &Warn &Fail &IsSet &IsGiven &Set &UnSet &Append &Override &Get &Test &Include &Finish &FindFile &TryFindFile &TryCmd &PkgConfig &TrivConfig &debPrint &PostConfig &AtWrite); + @EXPORT = qw(&Init &Log &Notice &Warn &Fail &IsSet &IsGiven &Set &UnSet &Append &Override &Get &Test &Include &Finish &FindFile &TryFindFile &TryCmd &PkgConfig &TrivConfig &DebugDump &PostConfig &AtWrite); @EXPORT_OK = qw(); %EXPORT_TAGS = (); } @@ -26,9 +26,9 @@ our %overriden; our @postconfigs; our @atwrites; -sub debPrint() { - print "VARS:\n"; -# print "$_: $vars{$_}\n" foreach( keys %vars ); +sub DebugDump() { + print "VARS:\n"; + print "$_: $vars{$_}\n" foreach( keys %vars ); } sub Log($) { -- 2.39.2