scip/note
1
0
Fork 0
mirror of https://codeberg.org/scip/note.git synced 2025-12-17 20:51:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix #1

Browse Source
This commit is contained in:
git@daemon.de
2016-07-29 07:40:02 +02:00
parent d416fe7667
commit ad4ba756f3
1 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
NOTEDB/binary.pm
View File

@@ -5,7 +5,7 @@
# #
package NOTEDB::binary; package NOTEDB::binary;
$NOTEDB::binary::VERSION = "1.11"; $NOTEDB::binary::VERSION = "1.12";
use strict; use strict;
use IO::Seekable; use IO::Seekable;
@@ -29,8 +29,8 @@ sub new {
bless($self,$class); 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");
my $MAX_NOTE = $param{max_note} || 4096; my $MAX_NOTE = $param{MaxNoteByte} || 4096;
my $MAX_TIME = $param{max_time} || 64; my $MAX_TIME = $param{MaxTimeByte} || 64;
if(! -e $self->{NOTEDB}) { if(! -e $self->{NOTEDB}) {
open(TT,">$self->{NOTEDB}") or die "Could not create $self->{NOTEDB}: $!\n"; open(TT,">$self->{NOTEDB}") or die "Could not create $self->{NOTEDB}: $!\n";