for ($i = 1; $i < @$ref; $i++) {
my ($blank, $act) = $$ref[$i] =~ /^(b?)(\w)$/;
return 0 unless $act;
for ($i = 1; $i < @$ref; $i++) {
my ($blank, $act) = $$ref[$i] =~ /^(b?)(\w)$/;
return 0 unless $act;
$main::me->{pingave} = 0;
$main::me->{registered} = 1;
$main::me->{version} = $main::version;
$main::me->{pingave} = 0;
$main::me->{registered} = 1;
$main::me->{version} = $main::version;
$main::me->{do_pc9x} = 1;
$main::me->update_pc92_next($pc92_short_update_period);
$main::me->update_pc92_keepalive;
$main::me->{do_pc9x} = 1;
$main::me->update_pc92_next($pc92_short_update_period);
$main::me->update_pc92_keepalive;
- $self->$sub($pcno, $line, $origin, @field);
+ $self->$sub($pcno, $line, $origin, \@field);
- $self->handle_default($pcno, $line, $origin, @field);
+ $self->handle_default($pcno, $line, $origin, \@field);
my $nref = Route::Node::get($call);
unless ($nref) {
cluck("ERROR: broadcast_pc92_update - Route::Node $call disappeared");
my $nref = Route::Node::get($call);
unless ($nref) {
cluck("ERROR: broadcast_pc92_update - Route::Node $call disappeared");
my $nref = Route::Node::get($call);
unless ($nref) {
cluck("ERROR: broadcast_pc92_keepalive - Route::Node $call disappeared");
my $nref = Route::Node::get($call);
unless ($nref) {
cluck("ERROR: broadcast_pc92_keepalive - Route::Node $call disappeared");