[imcc] ignore =cut if not in POD mode.

If requested, we can make this an error (however, anything that starts with a = at the start of a line opens POD, and =cut closes it, and in a way, you can view a '=cut' on its own as opening and closing, so I decided just to ignore for now.) git-svn-id: https://svn.parrot.org/parrot/trunk@35871 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Jan 21, 2009 · ff407fa · ff407fa
1 parent d7c19f5
commit ff407fa
Show file tree

Hide file tree

Showing 2 changed files with 3,014 additions and 3,001 deletions.
diff --git a/compilers/imcc/imcc.l b/compilers/imcc/imcc.l
@@ -283,7 +283,11 @@ SP              [ ]
     }
 
 
-
+<INITIAL,emit,macro>^"=cut"{EOL} {
+    /* this is a stand-alone =cut, but we're
+     * not in POD mode, so just ignore.
+     */
+}
 
 <INITIAL,emit,macro>^"=" {
         IMCC_INFO(interp)->in_pod = 1;