s/Regexp/re/ and clarify policy on lowercased object namespaces

p4raw-id: //depot/perl@2334

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 95c75da355..138db59881 100644
--- a/sv.c
+++ b/sv.c
@@ -1569,7 +1569,7 @@ sv_2pv(register SV *sv, STRLEN *lp)
 		    if ( ((SvFLAGS(sv) &
 			   (SVs_OBJECT|SVf_OK|SVs_GMG|SVs_SMG|SVs_RMG)) 
 			  == (SVs_OBJECT|SVs_RMG))
-			 && strEQ(s=HvNAME(SvSTASH(sv)), "Regexp")
+			 && strEQ(s=HvNAME(SvSTASH(sv)), "re")
 			 && (mg = mg_find(sv, 'r'))) {
 			dTHR;
 			regexp *re = (regexp *)mg->mg_obj;