projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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";
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;
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;
}
return $file;
}