Select Code to Download

xcomment:
        <skip: qr/[ \t]*/> newline(0..) '<!--'
...
            ($text,$return) = main::parse_delimited($text,'<!--','-
++->');
             $return = ['xcomment',$return];
        }

comment:
        <skip: qr/[ \t]*/> newline(0..) '/*'
...
            ($text,$return) = main::parse_delimited($text,'/*','*/');
             $return = ['comment',$return];
        }

#!/usr/bin/perl -w
use strict;
...
World
*/

Argument "/*" isn't numeric in addition (+) at C:/Perl/site/lib/Parse/
+RecDescent.pm line 2783, <DATA> line 1.
Use of uninitialized value in substitution (s///) at (eval 15)[C:/Perl
+/site/lib/Parse/RecDescent.pm:2618] line 22, <DATA> line 1.
Use of uninitialized value in concatenation (.) or string at (eval 15)
+[C:/Perl/site/lib/Parse/RecDescent.pm:2618] line 23, <DATA> line 1.
Use of uninitialized value in substitution (s///) at (eval 15)[C:/Perl
+/site/lib/Parse/RecDescent.pm:2618] line 23, <DATA> line 1.
Use of uninitialized value in substitution (s///) at (eval 15)[C:/Perl
+/site/lib/Parse/RecDescent.pm:2618] line 23, <DATA> line 1.