summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-10-18 17:14:38 +0000
committerNicholas Clark <nick@ccl4.org>2007-10-18 17:14:38 +0000
commit5e0ab564a19e208af30e5d05d5a03aae32025de6 (patch)
tree93d81d4dfe60b377327b3ae49aaccb48411dc49f
parent190d0b226d68d16dfd6e8c8e99625bca713613f1 (diff)
downloadperl-5e0ab564a19e208af30e5d05d5a03aae32025de6.tar.gz
use newSVpvs() on the constant string "isa", rather than newSVpv().
p4raw-id: //depot/perl@32134
-rw-r--r--universal.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c
index 457fffaf9c..fa0ccd309b 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 */