as I'm going to integrate the core patch
p4raw-id: //depot/perl@21964
# Case 7: test weaken on a read only ref
#
-if ($] < 5.009) {
+if ($] < 5.008003) {
# Doesn't work for older perls, see bug [perl #24506]
print "# Skip next 5 tests on perl $]\n";
for (1..5) {