4 if( $ENV{PERL_CORE} ) {
16 sub new { bless { }, shift };
28 tie my %hash, "Tie::RefHash";
30 $hash{$obj} = "magic";
32 print ( ( $hash{$obj} eq "magic" ) ? "" : "not ", "ok - keyed before rebless" );
36 print ( ( $hash{$obj} eq "magic" ) ? "" : "not ", "ok - still the same");