fix undef in route

[spider.git] / perl / QXProt.pm

diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index 10ad4aa47498bee27e518f7e669875220dcfdcba..b0d9a167eedc6e886ba8ce6abc3786b6814833d1 100644 (file)
--- 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, $_));
        }