From: minima <minima>
Date: Tue, 21 Jan 2003 15:16:23 +0000 (+0000)
Subject: fix undef in route
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f70b281ed9f65940d33827bbf36ab5bc4d9c87bb;p=spider.git

fix undef in route
---

diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index 10ad4aa4..b0d9a167 100644
--- a/perl/QXProt.pm
+++ b/perl/QXProt.pm
@@ -152,7 +152,7 @@ sub frame
 sub send_frame
 {
 	my $self = shift;
-	my $origin = shift;
+	my $origin = shift || $main::me;
 	for (@_) {
 		$self->send(frame('X', undef, $origin == $main::me || $origin->is_user ? '' : $origin->call, $_));
 	}