X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=9ec12fd3916f6eb044d3b5949eedba4c36223197;hb=7f38719941b040ae64358fece992179c5938d609;hp=1113bc247b2d0a58d412d80104a18987320cb225;hpb=0144bfc7a3550b04e9f319ae3d19f12c532f380e;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;