merged back NEW_ROUTE into trunk

[spider.git] / perl / DXHash.pm

diff --git a/perl/DXHash.pm b/perl/DXHash.pm
index c809dfd3c6c0cd50ca41a8fed21734696c979077..870ac9cc4dedd17d01bbea823f840121b8bb95c0 100644 (file)
--- a/perl/DXHash.pm
+++ b/perl/DXHash.pm
@@ -30,7 +30,7 @@ sub new
        my ($pkg, $name) = @_;
        my $s = readfilestr($main::data, $name);
        my $self = eval $s if $s;
-       dbg('err', "error in reading $name in DXHash $@") if $@;
+       dbg("error in reading $name in DXHash $@") if $@;
        $self = bless {name => $name}, $pkg unless $self;
        return $self;
 }