X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FStore%2FJSON.pm;h=43b1d4493ad3cb422e6cbabf26ce706664c4c15d;hp=6a80bdfb48f68e196f832044a3ea51eb4ba023e9;hb=7adaf1ae075abb79226ae0d563c0c0156491ecec;hpb=0289fcfee0b45794f7a0f910f9d635beac54e8f2;ds=sidebyside

diff --git a/lib/CWMP/Store/JSON.pm b/lib/CWMP/Store/JSON.pm
index 6a80bdf..43b1d44 100644
--- a/lib/CWMP/Store/JSON.pm
+++ b/lib/CWMP/Store/JSON.pm
@@ -20,14 +20,14 @@ my $full_path;
 sub full_path {
 	my ( $self, $path ) = @_;
 	$full_path = "$path/json";
-	warn "## full_path: $full_path";
+	warn "## full_path: $full_path" if $debug;
 	return $full_path;
 }
 
 sub file {
 	my ( $self, $uid ) = @_;
 	my $file = "$full_path/$uid" . $self->extension;
-	warn "## file -> $file";
+	warn "## file -> $file" if $debug;
 	return $file;
 }