From f70b281ed9f65940d33827bbf36ab5bc4d9c87bb Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 21 Jan 2003 15:16:23 +0000
Subject: [PATCH] fix undef in route

---
 perl/QXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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, $_));
 	}
-- 
2.34.1