The last parameter to gv_stashpv/gv_stashpvn/gv_stashsv is a bitmask

of flags, not a boolean, so correct the documenation and callers.

p4raw-id: //depot/perl@29977

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 6f54dc65f2..e1a45c1a42 100644
--- a/pp.c
+++ b/pp.c
@@ -578,7 +578,7 @@ PP(pp_bless)
 	if (len == 0 && ckWARN(WARN_MISC))
 	    Perl_warner(aTHX_ packWARN(WARN_MISC),
 		   "Explicit blessing to '' (assuming package main)");
-	stash = gv_stashpvn(ptr, len, TRUE);
+	stash = gv_stashpvn(ptr, len, GV_ADD);
     }
 
     (void)sv_bless(TOPs, stash);