diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-06 20:45:30 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-06 20:45:30 +0000 |
| commit | 3818b22bb9ef820a2553aa5e3504220f3b156f21 (patch) | |
| tree | 53e97cd4154273174e1cb2cc51b69419507ec6a4 /pp_ctl.c | |
| parent | d308986b5b369caa1602a636a5e2ecfa149dfc89 (diff) | |
| download | perl-3818b22bb9ef820a2553aa5e3504220f3b156f21.tar.gz | |
set SvUTF8 on vectors only if there are chars > 127; update copyright
years (from Gisle Aas)
p4raw-id: //depot/perl@5009
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,6 +1,6 @@ /* pp_ctl.c * - * Copyright (c) 1991-1999, Larry Wall + * Copyright (c) 1991-2000, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -2865,7 +2865,7 @@ PP(pp_require) sv = POPs; if (SvNIOKp(sv)) { UV rev, ver, sver; - if (SvPOKp(sv) && SvUTF8(sv)) { /* require v5.6.1 */ + if (SvPOKp(sv)) { /* require v5.6.1 */ I32 len; U8 *s = (U8*)SvPVX(sv); U8 *end = (U8*)SvPVX(sv) + SvCUR(sv); |