diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-09 15:06:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-09 15:06:55 +0000 |
| commit | 6f27f9a7eff1b9dfc549cd13594b6977d1eb967d (patch) | |
| tree | d48fadd36798e01dad8aee108cf996bf237c0228 /toke.c | |
| parent | 8d1a09d3fcc3c99bd6f7044b2c10e5acf22d14d5 (diff) | |
| download | perl-6f27f9a7eff1b9dfc549cd13594b6977d1eb967d.tar.gz | |
Missing patch fragment, noted by Hugo.
p4raw-id: //depot/perl@17441
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -450,7 +450,7 @@ Perl_lex_start(pTHX_ SV *line) if (SvREADONLY(PL_linestr)) PL_linestr = sv_2mortal(newSVsv(PL_linestr)); s = SvPV(PL_linestr, len); - if (len && s[len-1] != ';') { + if (!len || s[len-1] != ';') { if (!(SvFLAGS(PL_linestr) & SVs_TEMP)) PL_linestr = sv_2mortal(newSVsv(PL_linestr)); sv_catpvn(PL_linestr, "\n;", 2); |