This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b701821
)
(submitted on behalf of Jarkko)
author
Gurusamy Sarathy
<gsar@cpan.org>
Thu, 12 Oct 2000 16:40:47 +0000
(16:40 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Thu, 12 Oct 2000 16:40:47 +0000
(16:40 +0000)
Fix the lib/encode.t subtest 6 failure as reported by Andreas
Koenig, gmagical substr() wasn't propagating UTF8ness. The bug
was unearthed by change 7182, as was a bug in HTML::Entities.
p4raw-id: //depot/perl@7202
mg.c
patch
|
blob
|
blame
|
history
diff --git
a/mg.c
b/mg.c
index
721cfb9
..
bec0a82
100644
(file)
--- a/
mg.c
+++ b/
mg.c
@@
-1425,6
+1425,8
@@
Perl_magic_getsubstr(pTHX_ SV *sv, MAGIC *mg)
if (rem + offs > len)
rem = len - offs;
sv_setpvn(sv, tmps + offs, (STRLEN)rem);
+ if (DO_UTF8(lsv))
+ SvUTF8_on(sv);
return 0;
}