X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=bc6ed47e455d70dbeb5d332f8f634b26700bc6f2;hb=cf33b1fa05b8e3489232a4e57f0ba2542b0e7a64;hp=b2665df8f0a6cf5786782e1f85035e93b3d91723;hpb=e76e5e7e943c5af1d984ec60ad80524424420fa2;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;
 }