From: minima <minima>
Date: Wed, 3 Jan 2007 17:18:27 +0000 (+0000)
Subject: fix typo
X-Git-Tag: 1.54~73
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=17a3003a0cee5a3ba360fa2bccb382f0647de2b9;p=spider.git

fix typo
---

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 41986240..c7554d72 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -715,7 +715,7 @@ sub handle_19
 	if (@rout) {
 		$self->route_pc21($self->{call}, $line, @rout);
 		$self->route_pc19($self->{call}, $line, @rout);
-		$self->route_pc92a($main::mycall, $line, $main::routemain, @rout);
+		$self->route_pc92a($main::mycall, $line, $main::routeroot, @rout);
 	}
 }
 		
@@ -787,7 +787,7 @@ sub handle_21
 
 	if (@rout) {
 		$self->route_pc21($origin, $line, @rout);
-		$self->route_pc92d($main::mycall, $line, $main::routemain, @rout);
+		$self->route_pc92d($main::mycall, $line, $main::routeroot, @rout);
 	}
 }