diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-06 17:57:52 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-06 17:57:52 +0000 |
| commit | b78218b7f806d19fec2aa4d578cd6086927cd9ab (patch) | |
| tree | af71f50c8ef8abc55c731855695298f50c849171 | |
| parent | 37bd1396ea9d91e675e031705a61835c0083b20a (diff) | |
| download | perl-b78218b7f806d19fec2aa4d578cd6086927cd9ab.tar.gz | |
misc tweaks
p4raw-id: //depot/perl@4086
| -rw-r--r-- | bytecode.pl | 2 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.h | 7 | ||||
| -rw-r--r-- | pod/perlsyn.pod | 9 | ||||
| -rw-r--r-- | toke.c | 2 |
4 files changed, 8 insertions, 12 deletions
diff --git a/bytecode.pl b/bytecode.pl index 32f20006c1..7d9b223f7c 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 9634688b20..3b8f77642c 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 d08a5f946f..680ecb9ad9 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. @@ -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 |