X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fexport.pl;h=0e803a2fa8c8010d08468e8588b0e8fd9828d029;hb=85ea68ecce028876ab0d60d622c1d92c95bb8747;hp=723cdcb6ea33ed3ff9ec5d1cdfd3d0f989fef0f2;hpb=5ba68ecc9ddb9ccdefe75256f73af2ba92fd221c;p=spider.git diff --git a/cmd/export.pl b/cmd/export.pl index 723cdcb6..0e803a2f 100644 --- a/cmd/export.pl +++ b/cmd/export.pl @@ -25,7 +25,7 @@ return (1, $self->msg('read2', $msgno)) unless $ref; if (-e $fn) { my $m = $self->msg('e16', $fn); Log('msg', $self->call . " tried to export $m"); - dbg('msg', $m); + dbg($m) if isdbg('msg'); return (1, $m); } @@ -47,7 +47,7 @@ if ($fh) { $m = $self->msg('export2', $msgno, $fn, $!, $self->call); } Log('msg', $m); -dbg('msg', $m); +dbg($m) if isdbg('msg'); push @out, $m; return (1, @out);