fix typo

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6591c511a7e5cc8fd81dd3f3e965b31814f59541..81cdeaeeae5cc8d15d5cc02b997ba27a908236a7 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -792,7 +792,7 @@ sub send_pc92_config
        foreach $node (@localnodes) {
                if ($node && $node->lastid->{92}) {
                        my @rout = map {my $r = Route::get($_); $r ? ($r) : ()} $node->nodes, $node->users;
-                       my $line = gen_pc29_with_time($node->call, 'C', $node->lastid->{92}, @rout);
+                       my $line = gen_pc92_with_time($node->call, 'C', $node->lastid->{92}, @rout);
                        $self->send($line);
                } else {
                        dbg("sent a null value") if isdbg('chanerr');