From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 6 Sep 1999 17:57:52 +0000 (+0000)
Subject: misc tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b78218b7f806d19fec2aa4d578cd6086927cd9ab;p=p5sagit%2Fp5-mst-13.2.git

misc tweaks

p4raw-id: //depot/perl@4086
---

diff --git a/bytecode.pl b/bytecode.pl
index 32f2000..7d9b223 100644
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -234,7 +234,7 @@ for ($i = 0; $i < @optype - 1; $i++) {
 printf BYTERUN_H "    OPt_%s\t\t/* %d */\n};\n\n", $optype[$i], $i;
 
 print BYTERUN_H <<'EOT';
-EXT void byterun(pTHXo_ struct bytestream bs);
+extern void byterun(pTHXo_ struct bytestream bs);
 
 #define INIT_SPECIALSV_LIST STMT_START { \
 EOT
diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h
index 9634688..3b8f776 100644
--- a/ext/ByteLoader/byterun.h
+++ b/ext/ByteLoader/byterun.h
@@ -151,12 +151,7 @@ enum {
     OPt_COP		/* 10 */
 };
 
-#if defined(CYGWIN)
-extern
-#else
-EXT
-#endif
-void byterun(pTHXo_ struct bytestream bs);
+extern void byterun(pTHXo_ struct bytestream bs);
 
 #define INIT_SPECIALSV_LIST STMT_START { \
 	PL_specialsv_list[0] = Nullsv; \
diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index d08a5f9..680ecb9 100644
--- a/pod/perlsyn.pod
+++ b/pod/perlsyn.pod
@@ -155,10 +155,11 @@ C<if> an C<else> goes with.  If you use C<unless> in place of C<if>,
 the sense of the test is reversed.
 
 The C<while> statement executes the block as long as the expression is
-true (does not evaluate to the null string (C<"">) or C<0> or C<"0")>.  The LABEL is
-optional, and if present, consists of an identifier followed by a colon.
-The LABEL identifies the loop for the loop control statements C<next>,
-C<last>, and C<redo>.  If the LABEL is omitted, the loop control statement
+true (does not evaluate to the null string (C<""> or C<0> or C<"0">).
+The LABEL is optional, and if present, consists of an identifier followed
+by a colon.  The LABEL identifies the loop for the loop control
+statements C<next>, C<last>, and C<redo>.
+If the LABEL is omitted, the loop control statement
 refers to the innermost enclosing loop.  This may include dynamically
 looking back your call-stack at run time to find the LABEL.  Such
 desperate behavior triggers a warning if you use the B<-w> flag.
diff --git a/toke.c b/toke.c
index 5a9c267..2561451 100644
--- a/toke.c
+++ b/toke.c
@@ -6517,7 +6517,7 @@ Perl_scan_num(pTHX_ char *start)
 		s += 2;
 	    }
 	    /* check for a decimal in disguise */
-	    else if (strchr(".Ee", s[1]))
+	    else if (s[1] == '.' || s[1] == 'e' || s[1] == 'E')
 		goto decimal;
 	    /* so it must be octal */
 	    else