| Subject: | compiled code cannot contain '<<' |
If the text between the use ... and the no ... contains <<, then the
value passed to pmc_compile is not correct. See attached test. I get the
following output:
1..1
not ok 1 - parse <<
# Failed test 'parse <<'
# in parse_double_less_than.t at line 17.
# got: '
# <<a b c >>
# 2e2fa990a41abedeb43e3c22d421adae1f9ef9ad
#
# 1;
#
# '
# expected: '
# << a b c >>
# '
# Looks like you failed 1 test of 1.
| Subject: | parse_double_less_than.t |
package mcbug;
use strict;
use warnings;
$INC{'mcbug.pm'} = 1;
use lib '.';
use Test::More tests => 1;
use Module::Compile -base;
sub pmc_compile {
my (undef, $src) = @_;
cmp_ok($src, 'eq', "\n<< a b c >>\n", 'parse <<');
}
eval { require mctest };
1;
| Subject: | mctest.pm |
package mctest;
use mcbug;
<< a b c >>
no mcbug;
1;