fix precedence

@zigorou さん

優先順位の問題で
```
return ($flags & ( B::SVp_IOK | B::SVp_NOK )) and !($flags & B::SVp_POK);
```
が以下のように解釈されるため、修正しました。
```
return ($flags & ( B::SVp_IOK | B::SVp_NOK ));
```

テストケースを書いていたのですが、SV/IV関連の振る舞いPerlのVersionにより異なるため、
省略させて戴きました。