X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=universal.c;h=fa0ccd309b5536d50376a472c1d4ecbff7358096;hb=4d7c789858ca4beacd2cf4028e969fabc2a97426;hp=457fffaf9c4f8c885da52e9c14b249126907727c;hpb=f1b875a0a91038690cebe55acd7ad1e37e6a2621;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/universal.c b/universal.c
index 457fffa..fa0ccd3 100644
--- a/universal.c
+++ b/universal.c
@@ -161,7 +161,7 @@ Perl_sv_does(pTHX_ SV *sv, const char *name)
     XPUSHs(sv_2mortal(newSVpv(name, 0)));
     PUTBACK;
 
-    methodname = sv_2mortal(newSVpv("isa", 0));
+    methodname = sv_2mortal(newSVpvs("isa"));
     /* ugly hack: use the SvSCREAM flag so S_method_common
      * can figure out we're calling DOES() and not isa(),
      * and report eventual errors correctly. --rgs */