projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
27a5094
)
fix undef in handle_cf
author
minima
<minima>
Tue, 22 Feb 2005 18:31:30 +0000
(18:31 +0000)
committer
minima
<minima>
Tue, 22 Feb 2005 18:31:30 +0000
(18:31 +0000)
perl/Thingy/Rt.pm
patch
|
blob
|
history
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 6207635aac912ba03f071aa493d9c4a88c5a1fce..4b533445a68ee42e1ce5dba88c80e473b86d33cc 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-100,19
+100,18
@@
sub handle_cf
push @$add, @$tadd;
push @$del, @$tdel;
}
push @$add, @$tadd;
push @$del, @$tdel;
}
- if (@$add || @$del) {
- my $call;
-
+ if ($add) {
my @pc21;
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;
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;
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;
RouteDB::update($call, $chan_call);
my $ref = Route::Node::get($call);
push @pc19, $parent->add($call, 0, $in{$call}) unless $ref;