20 isnt($a + 0, $b + 0, 'Not the same object');
35 isnt($c + 0, $d + 0, 'Not the same object');
43 # Assignment to an implicitly blessed Regexp object retains the class
44 # (No different from direct value assignment to any other blessed SV
47 like("$d", qr/\ARegexp=SCALAR\(0x[0-9a-f]+\)\z/);
49 # As does an explicitly blessed Regexp object.
51 my $e = bless qr/Faux Pie/, 'Stew';
58 like("$e", qr/\Stew=SCALAR\(0x[0-9a-f]+\)\z/);