X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=45bd7213e147eceb93bf3458f294b2dbd0b67a1c;hb=9a31104f31ce5d80a659dea3de9dbf9a5d46ef8e;hp=388aed2e15056e0853c1a7f7dd538d83909ce501;hpb=05a7fdd4a58c51e21b55b0509b054b625839290c;p=spider.git

diff --git a/perl/Route.pm b/perl/Route.pm
index 388aed2e..45bd7213 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -152,7 +152,8 @@ sub here
 	my $r = shift;
 	return $self ? 2 : 0 unless ref $self;
 	return ($self->{flags} & 2) ? 1 : 0 unless defined $r;
-	$self->{flags} = (($self->{flags} & ~2) | ($r ? 2 : 0));
+	$self->{flags} &= ~2;
+	$self->{flags} |= $r ? 2 : 0;
 	return $r ? 1 : 0;
 }
 
@@ -162,7 +163,8 @@ sub conf
 	my $r = shift;
 	return $self ? 1 : 0 unless ref $self;
 	return ($self->{flags} & 1) ? 1 : 0 unless defined $r;
-	$self->{flags} = (($self->{flags} & ~1) | ($r ? 1 : 0));
+	$self->{flags} &= ~1;
+	$self->{flags} |= $r ? 1 : 0;
 	return $r ? 1 : 0;
 }