more wip and a nearly working basic thing

[spider.git] / perl / Route.pm

diff --git a/perl/Route.pm b/perl/Route.pm
index 388aed2e15056e0853c1a7f7dd538d83909ce501..45bd7213e147eceb93bf3458f294b2dbd0b67a1c 100644 (file)
--- 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;
 }