# which support a HEREdoc-alike block syntax.
# This is special cased from the usual paragraph-handler logic
# due to the HEREdoc-ish syntax.
- if ($self->{lastline} =~ /^TYPEMAP\s*:\s*<<\s*(?:(["'])(.+?)\1|([^\s'"]+))\s*;?\s*$/) {
+ if ($self->{lastline} =~ /^TYPEMAP\s*:\s*<<\s*(?:(["'])(.+?)\1|([^\s'"]+?))\s*;?\s*$/) {
my $end_marker = quotemeta(defined($1) ? $2 : $3);
my @tmaplines;
while (1) {
use attributes;
use overload;
-plan tests => 28;
+plan tests => 29;
my ($source_file, $obj_file, $lib_file);
is XSMore::typemaptest1(), 42, 'Simple embedded typemap works';
is XSMore::typemaptest2(), 42, 'Simple embedded typemap works with funny end marker';
is XSMore::typemaptest3(12, 13, 14), 12, 'Simple embedded typemap works for input, too';
+ is XSMore::typemaptest6(5), 5, '<<END; (with semicolon) matches delimiter "END"';
# Win32 needs to close the DLL before it can unlink it, but unfortunately
# dl_unload_file was missing on Win32 prior to perl change #24679!