Change 15197: [PATCH toke.c] Inappropriate termination of POD

[Abhijit Menon-Sen]

Change 15197 by ams@lustre on 2002/03/12 14:57:34

           Subject: [PATCH toke.c] Inappropriate termination of POD
           From: "Clinton A. Pierce" <[EMAIL PROTECTED]>
           Date: Tue, 12 Mar 2002 10:11:53 -0500
           Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/toke.c#422 edit

Differences ...

==== //depot/perl/toke.c#422 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~     Tue Mar 12 08:00:05 2002
+++ perl/toke.c Tue Mar 12 08:00:05 2002
@@ -2570,9 +2570,6 @@
                }
            }
            if (PL_doextract) {
-               if (*s == '#' && s[1] == '!' && instr(s,"perl"))
-                   PL_doextract = FALSE;
-
                /* Incest with pod. */
                if (*s == '=' && strnEQ(s, "=cut", 4)) {
                    sv_setpv(PL_linestr, "");
End of Patch.