fix typo

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 41986240d6d374c2b0248571199e2bc8dfbfc399..c7554d72375a694b9356595c5425008942130a0a 100644 (file)
--- 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);
        }
 }