get to a reasonably stable stage in the route info exchange.

[spider.git] / perl / Route.pm

diff --git a/perl/Route.pm b/perl/Route.pm
index 5f9de7d72a823db72b50d20791362638e6454e02..019ba1e3c68f1355f6f7f1c223e0754733f49075 100644 (file)
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -157,8 +157,8 @@ sub here
 {
        my $self = shift;
        my $r = shift;
-       return $self ? 2 : 0 unless ref $self;
-       return ($self->{flags} & 2) ? 1 : 0 unless defined $r;
+       return $self ? 1 : 0 unless ref $self;
+       return ($self->{flags} & 1) ? 1 : 0 unless defined $r;
        $self->{flags} = (($self->{flags} & ~1) | ($r ? 1 : 0));
        return $r ? 1 : 0;
 }
@@ -168,7 +168,7 @@ sub conf
        my $self = shift;
        my $r = shift;
        return $self ? 2 : 0 unless ref $self;
-       return ($self->{flags} & 1) ? 1 : 0 unless defined $r;
+       return ($self->{flags} & 2) ? 2 : 0 unless defined $r;
        $self->{flags} = (($self->{flags} & ~2) | ($r ? 2 : 0));
        return $r ? 2 : 0;
 }