From 17a3003a0cee5a3ba360fa2bccb382f0647de2b9 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 3 Jan 2007 17:18:27 +0000
Subject: [PATCH] fix typo

---
 perl/DXProtHandle.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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);
 	}
 }
 		
-- 
2.43.0