From 27b6e9691f9985830388bbb8fc0a04357fa4f11f Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 22 Feb 2005 17:37:17 +0000 Subject: [PATCH] use the correct call 'new_cf' everywhere --- perl/Aranea.pm | 2 +- perl/DXProt.pm | 4 ++-- perl/Thingy/Hello.pm | 2 +- perl/Thingy/Rt.pm | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/perl/Aranea.pm b/perl/Aranea.pm index 5ee04b1c..726a068d 100644 --- a/perl/Aranea.pm +++ b/perl/Aranea.pm @@ -122,7 +122,7 @@ sub start # broadcast our configuration to the world unless ($self->{outbound}) { - my $thing = Thingy::Rt->new_lcf; + my $thing = Thingy::Rt->new_cf; $thing->broadcast; } diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 8f16da66..65b666a2 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1094,7 +1094,7 @@ sub handle_20 $self->send(pc22()); $self->state('normal'); $self->{lastping} = 0; - my $thing = Thingy::Rt->new(user=>$self->{call}); + my $thing = Thingy::Rt->new_cf(user=>$self->{call}); my $nref = Route::Node::get($self->{call}); $thing->broadcast if $thing->copy_pc16_data($nref); } @@ -1177,7 +1177,7 @@ sub handle_22 my $origin = shift; $self->state('normal'); $self->{lastping} = 0; - my $thing = Thingy::Rt->new(user=>$self->{call}); + my $thing = Thingy::Rt->new_cf(user=>$self->{call}); my $nref = Route::Node::get($self->{call}); $thing->broadcast if $thing->copy_pc16_data($nref); } diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm index 9c6a539f..97abd14e 100644 --- a/perl/Thingy/Hello.pm +++ b/perl/Thingy/Hello.pm @@ -90,7 +90,7 @@ sub handle $thing->send($dxchan); # broadcast our configuration to the world - $thing = Thingy::Rt->new_lcf; + $thing = Thingy::Rt->new_cf; $thing->broadcast; } } diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm index 7f94937a..807e414e 100644 --- a/perl/Thingy/Rt.pm +++ b/perl/Thingy/Rt.pm @@ -210,7 +210,7 @@ sub _upd_user_rec # info whenever a node connects and also periodically. # -sub new_lcf +sub new_cf { my $pkg = shift; my $thing = $pkg->SUPER::new(@_); -- 2.43.0