{ vec(my $str, 2, 1) = 1; vec($str, 5, 1) = 1; vec($str, 8, 1) = 1; sub mytest { my $foo = @_ ? shift : $_; # was 'shift || $_' $foo <<= 1; $str & $foo == $str; } } #### { vec(my $str, 2, 1) = 1; vec($str, 5, 1) = 1; vec($str, 8, 1) = 1; sub mytest { my $foo = @_ ? shift : $_; # was 'shift || $_' my $bar = $foo << 1; not ($foo & $str) ^ ($bar & $str); } }