projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r140@llin (orig r139): dpavlin | 2007-10-27 12:13:01 +0200
[perl-cwmp.git]
/
lib
/
CWMP
/
Store
/
DBMDeep.pm
diff --git
a/lib/CWMP/Store/DBMDeep.pm
b/lib/CWMP/Store/DBMDeep.pm
index
0c3c6d3
..
985a124
100644
(file)
--- a/
lib/CWMP/Store/DBMDeep.pm
+++ b/
lib/CWMP/Store/DBMDeep.pm
@@
-6,6
+6,7
@@
use warnings;
use DBM::Deep;
use Data::Dump qw/dump/;
use DBM::Deep;
use Data::Dump qw/dump/;
+use Carp qw/confess/;
=head1 NAME
=head1 NAME
@@
-24,15
+25,20
@@
my $debug = 1;
sub open {
my $self = shift;
sub open {
my $self = shift;
-
warn "open ",dump( @_ )
;
+
my $args = shift
;
- my $path = 'state.db';
+ $debug = $args->{debug};
+ my $path = $args->{path} || confess "no path?";
+
+ warn "open ",dump( $args ) if $debug;
+
+ $path = "$path/state.db" if ( -d $args->{path} );
$db = DBM::Deep->new(
file => $path,
locking => 1,
autoflush => 1,
$db = DBM::Deep->new(
file => $path,
locking => 1,
autoflush => 1,
- );
+ )
|| confess "can't open $path: $!"
;
}
}