projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2b4d1b8
)
fix syntax errors
author
minima
<minima>
Tue, 22 Feb 2005 15:17:38 +0000
(15:17 +0000)
committer
minima
<minima>
Tue, 22 Feb 2005 15:17:38 +0000
(15:17 +0000)
perl/Thingy/Rt.pm
patch
|
blob
|
history
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 5242259c63f82ae5f19d3c5f93376cdbfb457b23..fe018855286f4a2ca5603e089c6797874d79fd2c 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-86,15
+86,16
@@
sub handle_cf
}
# do nodes
}
# do nodes
- my ($del, $add)
+ my ($del, $add);
+ my %in;
if ($thing->{n}) {
if ($thing->{n}) {
-
my %in = (map {my ($here, $call) = unpack "A1 A*", $_
; ($call, $here)} split /:/, $thing->{n});
+
%in = (map {my ($here, $call) = unpack("A1 A*", $_)
; ($call, $here)} split /:/, $thing->{n});
my ($tdel, $tadd) = $parent->diff_nodes(keys %in);
$add = $tadd;
$del = $tdel;
}
if ($thing->{a}) {
my ($tdel, $tadd) = $parent->diff_nodes(keys %in);
$add = $tadd;
$del = $tdel;
}
if ($thing->{a}) {
-
my %in = (map {my ($here, $call) = unpack "A1 A*", $_
; ($call, $here)} split /:/, $thing->{a});
+
%in = (map {my ($here, $call) = unpack("A1 A*", $_)
; ($call, $here)} split /:/, $thing->{a});
my ($tdel, $tadd) = $parent->diff_nodes(keys %in);
push @$add, @$tadd;
push @$del, @$tdel;
my ($tdel, $tadd) = $parent->diff_nodes(keys %in);
push @$add, @$tadd;
push @$del, @$tdel;
@@
-121,7
+122,7
@@
sub handle_cf
# now users
if ($thing->{u}) {
# now users
if ($thing->{u}) {
-
my
%in = (map {my ($here, $call) = unpack "A1 A*", $_; ($call, $here)} split /:/, $thing->{u});
+ %in = (map {my ($here, $call) = unpack "A1 A*", $_; ($call, $here)} split /:/, $thing->{u});
($del, $add) = $parent->diff_users(keys %in);
my $call;
($del, $add) = $parent->diff_users(keys %in);
my $call;