From 1b51ec2cbffe9df6d7650d3daabec0885ddd7695 Mon Sep 17 00:00:00 2001
From: minima <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