r270@brr: dpavlin | 2007-11-25 21:14:10 +0100

[perl-cwmp.git] / lib / CWMP / Store / JSON.pm

diff --git a/lib/CWMP/Store/JSON.pm b/lib/CWMP/Store/JSON.pm
index 6a80bdf..43b1d44 100644 (file)
--- 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;
 }