From 969c3cf73764f9e903d24693bda309c4e4bca885 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 1 Apr 2007 21:47:38 +0000
Subject: [PATCH]  r1178@llin:  dpavlin | 2007-04-01 22:39:11 +0200  cleanup
 debug output

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@810 07558da8-63fa-0310-ba24-9fe276d99e06
---
 lib/WebPAC/Normalize.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 69dac72..e297525 100644
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -1273,7 +1273,7 @@ my $hash;
 
 sub set {
 	my ($k,$v) = @_;
-	warn "## set ( $k => ", dump($v), " )", $/;
+	warn "## set ( $k => ", dump($v), " )", $/ if ( $debug );
 	$hash->{$k} = $v;
 };
 
@@ -1286,7 +1286,7 @@ sub set {
 sub get {
 	my $k = shift || return;
 	my $v = $hash->{$k};
-	warn "## get $k = ", dump( $v ), $/;
+	warn "## get $k = ", dump( $v ), $/ if ( $debug );
 	return $v;
 }
 
@@ -1299,7 +1299,7 @@ sub get {
 =cut
 
 sub count {
-	warn "## count ",dump(@_),$/;
+	warn "## count ",dump(@_),$/ if ( $debug );
 	return @_ . '';
 }
 
-- 
2.20.1