From 1b51ec2cbffe9df6d7650d3daabec0885ddd7695 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 22 Feb 2005 18:31:30 +0000 Subject: [PATCH] fix undef in handle_cf --- perl/Thingy/Rt.pm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm index 6207635a..4b533445 100644 --- a/perl/Thingy/Rt.pm +++ b/perl/Thingy/Rt.pm @@ -100,19 +100,18 @@ sub handle_cf push @$add, @$tadd; push @$del, @$tdel; } - if (@$add || @$del) { - my $call; - + if ($add) { my @pc21; - foreach $call (@$del) { + foreach my $call (@$del) { RouteDB::delete($call, $chan_call); my $ref = Route::Node::get($call); push @pc21, $ref->del($parent) if $ref; } $thing->{pc21n} = \@pc21 if @pc21; - + } + if ($del) { my @pc19; - foreach $call (@$add) { + foreach my $call (@$add) { RouteDB::update($call, $chan_call); my $ref = Route::Node::get($call); push @pc19, $parent->add($call, 0, $in{$call}) unless $ref; -- 2.43.0