Make bless(REF, REF) a fatal error, add bless tests.

Subject: [PATCH bleadperl-6530] bless, REF, and bless(REF, REF)
Message-Id: <200008071559.QAA29541@crypt.compulink.co.uk>

p4raw-id: //depot/perl@6539

1 files changed, 18 insertions, 0 deletions

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 3699b6e80d..fd082a1c89 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -182,6 +182,24 @@ spots.  This is now heavily deprecated.
 must either both be scalars or both be lists.  Otherwise Perl won't
 know which context to supply to the right side.
 
+=item Attempt to bless into a reference
+
+(F) The CLASSNAME argument to the bless() operator is expected to be
+the name of the package to bless the resulting object into. You've
+supplied instead a reference to something: perhaps you wrote
+
+    bless $self, $proto;
+
+when you intended
+
+    bless $self, ref($proto) || $proto;
+
+If you actually want to bless into the stringified version
+of the reference supplied, you need to stringify it yourself, for
+example by:
+
+    bless $self, "$proto";
+
 =item Attempt to free non-arena SV: 0x%lx
 
 (P internal) All SV objects are supposed to be allocated from arenas