X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=019ba1e3c68f1355f6f7f1c223e0754733f49075;hb=eb2a2eb1aa8e7c743c23ec5e0dc5aa40a8708e79;hp=5f9de7d72a823db72b50d20791362638e6454e02;hpb=7b10171a637c3aef830d309b27739cf4aeba939b;p=spider.git

diff --git a/perl/Route.pm b/perl/Route.pm
index 5f9de7d7..019ba1e3 100644
--- 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;
 }