X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=bc6ed47e455d70dbeb5d332f8f634b26700bc6f2;hb=adf3cc7462a4544d2bca7f380593631edcff120b;hp=b2665df8f0a6cf5786782e1f85035e93b3d91723;hpb=1479f550842390ca770899e5cf1c6ce79087fe82;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index b2665df8..bc6ed47e 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -889,8 +889,11 @@ sub dir
 sub load_forward
 {
 	my @out;
-	do "$forwardfn" if -e "$forwardfn";
-	push @out, $@ if $@;
+	my $s = readfilestr($forwardfn);
+	if ($s) {
+		eval $s;
+		push @out, $@ if $@;
+	}
 	return @out;
 }
 
@@ -898,8 +901,11 @@ sub load_forward
 sub load_badmsg
 {
 	my @out;
-	do "$badmsgfn" if -e "$badmsgfn";
-	push @out, $@ if $@;
+	my $s = readfilestr($badmsgfn);
+	if ($s) {
+		eval $s;
+		push @out, $@ if $@;
+	}
 	return @out;
 }