--- trunk/lib/WebPAC/Normalize.pm	2007/01/30 18:21:17	791
+++ trunk/lib/WebPAC/Normalize.pm	2007/04/01 21:47:38	810
@@ -1273,7 +1273,7 @@
 
 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 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 @@
 =cut
 
 sub count {
-	warn "## count ",dump(@_),$/;
+	warn "## count ",dump(@_),$/ if ( $debug );
 	return @_ . '';
 }