diff --git a/lib/NOTEDB/binary.pm b/lib/NOTEDB/binary.pm index 0671552..1c7a25b 100644 --- a/lib/NOTEDB/binary.pm +++ b/lib/NOTEDB/binary.pm @@ -5,7 +5,7 @@ # package NOTEDB::binary; -$NOTEDB::binary::VERSION = "1.12"; +$NOTEDB::binary::VERSION = "1.13"; use strict; use IO::Seekable; diff --git a/lib/NOTEDB/dbm.pm b/lib/NOTEDB/dbm.pm index 118aae7..3d14685 100644 --- a/lib/NOTEDB/dbm.pm +++ b/lib/NOTEDB/dbm.pm @@ -6,7 +6,7 @@ package NOTEDB::dbm; -$NOTEDB::dbm::VERSION = "1.41"; +$NOTEDB::dbm::VERSION = "1.42"; use DB_File; use NOTEDB; @@ -29,7 +29,7 @@ sub new my $notefile = "note.dbm"; my $timefile = "date.dbm"; - my $dbm_dir = $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".note_dbm"); + my $dbm_dir = $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb.dbm"); if (! -d $dbm_dir) { # try to make it diff --git a/lib/NOTEDB/dumper.pm b/lib/NOTEDB/dumper.pm index 518e95d..846d279 100644 --- a/lib/NOTEDB/dumper.pm +++ b/lib/NOTEDB/dumper.pm @@ -4,7 +4,7 @@ package NOTEDB::dumper; -$NOTEDB::dumper::VERSION = "1.02"; +$NOTEDB::dumper::VERSION = "1.03"; use strict; use Data::Dumper; @@ -29,7 +29,7 @@ sub new { my $self = {}; bless($self,$class); - $self->{NOTEDB} = $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb"); + $self->{NOTEDB} = $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb.dumper"); if(! -e $param{dbname}) { open(TT,">$param{dbname}") or die "Could not create $param{dbname}: $!\n"; diff --git a/lib/NOTEDB/general.pm b/lib/NOTEDB/general.pm index d413bbf..74bf678 100644 --- a/lib/NOTEDB/general.pm +++ b/lib/NOTEDB/general.pm @@ -4,7 +4,7 @@ package NOTEDB::general; -$NOTEDB::general::VERSION = "1.04"; +$NOTEDB::general::VERSION = "1.05"; use strict; #use Data::Dumper; @@ -31,7 +31,7 @@ sub new { my $self = {}; bless($self,$class); - $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb"); + $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb.txt"); if(! -e $param{dbname}) { open(TT,">$param{dbname}") or die "Could not create $param{dbname}: $!\n"; diff --git a/lib/NOTEDB/pwsafe3.pm b/lib/NOTEDB/pwsafe3.pm index d372a47..013c798 100644 --- a/lib/NOTEDB/pwsafe3.pm +++ b/lib/NOTEDB/pwsafe3.pm @@ -3,7 +3,7 @@ package NOTEDB::pwsafe3; -$NOTEDB::pwsafe3::VERSION = "1.08"; +$NOTEDB::pwsafe3::VERSION = "1.09"; use strict; use Data::Dumper; use Time::Local; @@ -28,7 +28,7 @@ sub new { my $self = {}; bless($self,$class); - $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb"); + $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb.psafe3"); $self->{mtime} = $self->get_stat(); $self->{unread} = 1; diff --git a/lib/NOTEDB/text.pm b/lib/NOTEDB/text.pm index 958f657..354bfb7 100644 --- a/lib/NOTEDB/text.pm +++ b/lib/NOTEDB/text.pm @@ -4,7 +4,7 @@ package NOTEDB::text; -$NOTEDB::text::VERSION = "1.04"; +$NOTEDB::text::VERSION = "1.05"; use strict; #use Data::Dumper; @@ -30,7 +30,7 @@ sub new { my $self = {}; bless($self,$class); - $self->{NOTEDB} = $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb"); + $self->{NOTEDB} = $self->{dbname} = $param{dbname} || File::Spec->catfile($ENV{HOME}, ".notedb.storable"); if(! -e $param{dbname}) { open(TT,">$param{dbname}") or die "Could not create $param{dbname}: $!\n";