76 |
$log->logcroak("need filename") if (! $arg->{'filename'}); |
$log->logcroak("need filename") if (! $arg->{'filename'}); |
77 |
my $code_page = $arg->{'code_page'} || '852'; |
my $code_page = $arg->{'code_page'} || '852'; |
78 |
|
|
|
#$log->logdie("can't find database ",$arg->{'filename'}) unless (glob($arg->{'filename'}.'.*')); |
|
|
|
|
79 |
# store data in object |
# store data in object |
80 |
$self->{'isis_code_page'} = $code_page; |
$self->{'isis_code_page'} = $code_page; |
81 |
foreach my $v (qw/isis_filename start_mfn limit_mfn/) { |
foreach my $v (qw/isis_filename start_mfn limit_mfn/) { |
105 |
$l = $cp->convert($l); |
$l = $cp->convert($l); |
106 |
return $l; |
return $l; |
107 |
}, |
}, |
108 |
); |
) or $log->logdie("can't find database ",$arg->{'filename'}); |
109 |
|
|
110 |
$db_size = $isis_db->count; |
$db_size = $isis_db->count; |
111 |
|
|
112 |
unless ($db_size) { |
unless ($db_size) { |