diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-04 01:59:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-04 01:59:26 +0000 |
| commit | 79cb57f6e01f91d8fff40d69caa187aaa669671b (patch) | |
| tree | eabaee443cecc2e9ff909a291c140663c1fd4954 /mg.c | |
| parent | 053fc87424630413980be29cbecbb76f658c5d74 (diff) | |
| download | perl-79cb57f6e01f91d8fff40d69caa187aaa669671b.tar.gz | |
correct places that said newSVpv() when they meant newSVpvn()
p4raw-id: //depot/perl@3217
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1093,7 +1093,7 @@ magic_methcall(SV *sv, MAGIC *mg, char *meth, I32 flags, int n, SV *val) if (n > 1) { if (mg->mg_ptr) { if (mg->mg_len >= 0) - PUSHs(sv_2mortal(newSVpv(mg->mg_ptr, mg->mg_len))); + PUSHs(sv_2mortal(newSVpvn(mg->mg_ptr, mg->mg_len))); else if (mg->mg_len == HEf_SVKEY) PUSHs((SV*)mg->mg_ptr); } |