X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=9ec12fd3916f6eb044d3b5949eedba4c36223197;hb=c94ff1bf2cbe16ed59c5b273c7f6730fd7314cab;hp=1113bc247b2d0a58d412d80104a18987320cb225;hpb=68fa2f8ae34d78464cb196851a7ce09ebef61b1b;p=spider.git diff --git a/perl/DXLog.pm b/perl/DXLog.pm index 1113bc24..9ec12fd3 100644 --- a/perl/DXLog.pm +++ b/perl/DXLog.pm @@ -49,7 +49,8 @@ sub new { 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;