>By the way, how do you tell if a reference is blessed without using the fragile hack
I've always used variations of:
if ($type = ref $t) {
eval { $t->isa("UNIVERSAL"); };
if ( $@=~/unblessed/ ) {
print "It's a $type, not blessed.\n"
} else {
print "It's blessed into class $type";
}
} else {
print "Not a reference at all\n";
}
with great success. It may not catch everything, and normally I'm
not hunting around to figure out what's in a variable... If you don't
know, you're in bigger trouble than this. :)