--- google/trunk/lib/CWMP/Store/JSON.pm	2007/11/25 13:34:09	225
+++ google/trunk/lib/CWMP/Store/JSON.pm	2007/11/25 20:33:12	229
@@ -20,14 +20,14 @@
 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;
 }