1N/A chdir 't' if -d 't'; 1N/A # in 64-bit platforms hex warns for 32+ -bit values 1N/A# test blessing simple types 1N/A# blessing ref to object doesn't modify object 1N/A# reblessing does modify object 1N/A $! = 2; # attempt to avoid cached string 1N/A# ref is ref to magic 1N/A### example of magic variable that is a reference?? 1N/A# no class, or empty string (with a warning), or undef (with two) 1N/A print @w ? "not ok 24\t# @w\n" : "ok 24\n"; 1N/A print @w != 1 ? "not ok 26\t# @w\n" : "ok 26\n"; 1N/A print @w != 2 ? "not ok 28\t# @w\n" : "ok 28\n"; 1N/Aprint $@ ? "ok 29\n" : "not ok 29\t# $b1\n"; 1N/A# class is an overloaded ref 1N/Aprint $@ ? "not ok 31\t# $@" : "ok 31\n";