diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-05-04 20:42:48 -0600 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-08-12 15:13:01 +1000 |
| commit | 93e088e883c48d3aa622b15ae335940abb05a48f (patch) | |
| tree | 5baeae51c9dc63e5966f9baaba0dff355f48ee15 /pp.c | |
| parent | ac993614a7619e3e09c31ed0d7721bede551376a (diff) | |
| download | perl-93e088e883c48d3aa622b15ae335940abb05a48f.tar.gz | |
XXX Patch for discussion: [perl #117355] [lu]cfirst don't respect 'use bytes'
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3664,7 +3664,7 @@ PP(pp_ucfirst) /* In a "use bytes" we don't treat the source as UTF-8, but, still want * the destination to retain that flag */ - if (SvUTF8(source)) + if (SvUTF8(source) && ! IN_BYTES) SvUTF8_on(dest); if (!inplace) { /* Finish the rest of the string, unchanged */ |