diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-10-18 17:14:38 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-18 17:14:38 +0000 |
| commit | 5e0ab564a19e208af30e5d05d5a03aae32025de6 (patch) | |
| tree | 93d81d4dfe60b377327b3ae49aaccb48411dc49f /universal.c | |
| parent | 190d0b226d68d16dfd6e8c8e99625bca713613f1 (diff) | |
| download | perl-5e0ab564a19e208af30e5d05d5a03aae32025de6.tar.gz | |
use newSVpvs() on the constant string "isa", rather than newSVpv().
p4raw-id: //depot/perl@32134
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
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 */ |