fix some errors in sh/c

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 330e7a60eba433069a65a217ad5ebbb56ae91312..60b0f1e6be9eec8c6ca340f5d871be739e0b45ea 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1706,7 +1706,7 @@ sub load_hops
        return $self->msg('lh1') unless -e "$main::data/hop_table.pl";
        do "$main::data/hop_table.pl";
        return $@ if $@;
-       return 0;
+       return ();
 }