projects
/
webpac2
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
77a5110
)
r1178@llin: dpavlin | 2007-04-01 22:39:11 +0200
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 1 Apr 2007 21:47:38 +0000
(21:47 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 1 Apr 2007 21:47:38 +0000
(21:47 +0000)
cleanup debug output
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@810
07558da8
-63fa-0310-ba24-
9fe276d99e06
lib/WebPAC/Normalize.pm
patch
|
blob
|
history
diff --git
a/lib/WebPAC/Normalize.pm
b/lib/WebPAC/Normalize.pm
index
69dac72
..
e297525
100644
(file)
--- 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 @_ . '';
}