projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make license version 2
[spider.git]
/
perl
/
DXLog.pm
diff --git
a/perl/DXLog.pm
b/perl/DXLog.pm
index ede817aa446fdae1dc89ae634488401206bc74d5..9ec12fd3916f6eb044d3b5949eedba4c36223197 100644
(file)
--- a/
perl/DXLog.pm
+++ b/
perl/DXLog.pm
@@
-49,7
+49,8
@@
sub new
{
my ($prefix, $suffix, $sort) = @_;
my $ref = bless {}, __PACKAGE__;
{
my ($prefix, $suffix, $sort) = @_;
my $ref = bless {}, __PACKAGE__;
- $ref->{prefix} = "$main::data/$prefix";
+ localdata_mv($prefix);
+ $ref->{prefix} = "$main::local_data/$prefix";
$ref->{suffix} = $suffix if $suffix;
$ref->{sort} = $sort;
$ref->{suffix} = $suffix if $suffix;
$ref->{sort} = $sort;
@@
-148,6
+149,7
@@
sub unixtoj($$)
sub write($$$)
{
my ($self, $jdate, $line) = @_;
sub write($$$)
{
my ($self, $jdate, $line) = @_;
+ return unless $self && $jdate;
if (!$self->{fh} ||
$self->{mode} ne ">>" ||
$jdate->year != $self->{jdate}->year ||
if (!$self->{fh} ||
$self->{mode} ne ">>" ||
$jdate->year != $self->{jdate}->year ||