projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
and a bit more
[spider.git]
/
perl
/
Route
/
Node.pm
diff --git
a/perl/Route/Node.pm
b/perl/Route/Node.pm
index 6f8de6dee1ca0431d37ef25c757877fc67e3a797..3c0feb4ba32f527fedd97b7321fbb13757fe6840 100644
(file)
--- a/
perl/Route/Node.pm
+++ b/
perl/Route/Node.pm
@@
-183,7
+183,7
@@
sub unlink_all_users
{
my $self = shift;
my @rout;
{
my $self = shift;
my @rout;
- foreach my $u (
$
{$self->{users}}) {
+ foreach my $u (
@
{$self->{users}}) {
my $uref = Route::User::get($u);
push @rout, $self->del_user($uref) if $uref;
}
my $uref = Route::User::get($u);
push @rout, $self->del_user($uref) if $uref;
}
@@
-198,7
+198,7
@@
sub new
confess "already have $call in $pkg" if $list{$call};
my $self = $pkg->SUPER::new($call);
confess "already have $call in $pkg" if $list{$call};
my $self = $pkg->SUPER::new($call);
- $self->{dxchan} =
ref $pkg ? [ $pkg->{call} ] :
[ ];
+ $self->{dxchan} = [ ];
$self->{version} = shift || 5000;
$self->{flags} = shift || Route::here(1);
$self->{users} = [];
$self->{version} = shift || 5000;
$self->{flags} = shift || Route::here(1);
$self->{users} = [];