X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FCWMP%2FStore%2FDBMDeep.pm;fp=lib%2FCWMP%2FStore%2FDBMDeep.pm;h=04e495902f8b7519d8dd46caa8cf2f858f67e4ad;hb=b67a262c16c1bf1ed95d99893efc946743842574;hp=985a1243e15b0208997691f93fe4e6fe0b5cad42;hpb=ab15afccf8238747d5b35a165807b109395cc8a2;p=perl-cwmp.git

diff --git a/lib/CWMP/Store/DBMDeep.pm b/lib/CWMP/Store/DBMDeep.pm
index 985a124..04e4959 100644
--- a/lib/CWMP/Store/DBMDeep.pm
+++ b/lib/CWMP/Store/DBMDeep.pm
@@ -16,11 +16,17 @@ CWMP::Store::DBMDeep - use DBM::Deep as storage
 
 =head2 open
 
+  $store->open({
+	path => 'var/',
+	debug => 1,
+	clean => 1,
+  });
+
 =cut
 
 my $db;
 
-my $debug = 1;
+my $debug = 0;
 
 sub open {
 	my $self = shift;
@@ -34,6 +40,11 @@ sub open {
 
 	$path = "$path/state.db" if ( -d $args->{path} );
 
+	if ( $args->{clean} && -e $path ) {
+		warn "removed old $path\n";
+		unlink $path || die "can't remove $path: $!";
+	}
+
 	$db = DBM::Deep->new(
 		file => $path,
 		locking => 1,