fix the Route::new on Pc24

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 0f41db4670747c897e42a5fd9c47eccdad1c8581..e184685bd7341e2c0bf55c517073fd8e34c42f1a 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -789,6 +789,7 @@ sub normal
                        $ref->here($field[2]) if $ref;
                        $ref = Route::User::get($call);
                        $ref->here($field[2]) if $ref;
+                       $ref ||= Route->new($call);
                        
                        # input filter if required
                        return unless $self->in_filter_route($ref);
@@ -931,7 +932,7 @@ sub normal
                        }
                        $user->lastoper($main::systime);   # to cut down on excessive for/opers being generated
                        $user->put;
-                       my $ref = Route::get($call);
+                       my $ref = Route::get($call) || Route->new($call);
 
                        # input filter if required
                        return unless $self->in_filter_route($ref);