1N/A chdir 't' if -d 't'; 1N/A # [perl #17753] segfault when undef'ing unquoted string constant 1N/A print $@ =~ /^Can't modify constant item/ ? "ok 28\n" : "not ok 28\n"; 1N/A# undefing a hash may free objects with destructors that then try to 1N/A# modify the hash. To them, the hash should appear empty. 1N/A key1 => bless({}, 'X'), 1N/A key2 => bless({}, 'X'), 1N/A print "not " if keys %hash; print "ok $test\n"; $test++; 1N/A print "not " if values %hash; print "ok $test\n"; $test++; 1N/A print "not " if each %hash; print "ok $test\n"; $test++; 1N/A print "not " if defined delete $hash{'key2'}; print "ok $test\n"; $test++;