From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 18 Oct 2007 17:14:38 +0000 (+0000)
Subject: use newSVpvs() on the constant string "isa", rather than newSVpv().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e0ab564a19e208af30e5d05d5a03aae32025de6;p=p5sagit%2Fp5-mst-13.2.git

use newSVpvs() on the constant string "isa", rather than newSVpv().

p4raw-id: //depot/perl@32134
---

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 */