From: Perl 5 Porters <perl5-porters.nicoh.com>
Date: Fri, 12 Jan 1996 02:05:06 +0000 (+0000)
Subject: perl 5.002beta2 patch: toke.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=91b7def858c29dac014df40946a128c06b3aa2ed;p=p5sagit%2Fp5-mst-13.2.git

perl 5.002beta2 patch: toke.c

Chip's U8/STDCHAR patch.

Tim's "add a ; after PERL5DB" patch.
---

diff --git a/toke.c b/toke.c
index 118079c..7b882fa 100644
--- a/toke.c
+++ b/toke.c
@@ -678,8 +678,8 @@ char *start;
 		SvGROW(sv, SvLEN(sv) + 256);
 		d = SvPVX(sv) + i;
 		d -= 2;
-		max = d[1] & 0377;
-		for (i = (*d & 0377); i <= max; i++)
+		max = (U8)d[1];
+		for (i = (U8)*d; i <= max; i++)
 		    *d++ = i;
 		dorange = FALSE;
 		continue;
@@ -1332,8 +1332,18 @@ yylex()
 	if (!in_eval && !preambled) {
 	    preambled = TRUE;
 	    sv_setpv(linestr,incl_perldb());
-	    if (autoboot_preamble)
-		sv_catpv(linestr, autoboot_preamble);
+	    if (SvCUR(linestr))
+		sv_catpv(linestr,";");
+	    if (preambleav){
+		while(AvFILL(preambleav) >= 0) {
+		    SV *tmpsv = av_shift(preambleav);
+		    sv_catsv(linestr, tmpsv);
+		    sv_catpv(linestr, ";");
+		    sv_free(tmpsv);
+		}
+		sv_free((SV*)preambleav);
+		preambleav = NULL;
+	    }
 	    if (minus_n || minus_p) {
 		sv_catpv(linestr, "LINE: while (<>) {");
 		if (minus_l)