'Expected exception thrown on old perls'
);
}
+elsif ($^O eq 'cygwin' and $] < 5.012000) {
+ SKIP: { skip 'Static coderef reaping seems nonfunctional on cygwin < 5.12', 1 }
+}
else {
is(${$foo_ro->one},'yay', 'value present');
ok(Scalar::Util::isweak($foo_ro->{one}), 'value weakened');