Skip Menu |
 

This queue is for tickets about the Inline-CPP CPAN distribution.

Report information
The Basics
Id: 36421
Status: resolved
Worked: 15 min
Priority: 0/
Queue: Inline-CPP

People
Owner: davido [...] cpan.org
Requestors: sisyphus [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.25
Fixed in: (no value)



Subject: Can't pass AV* with perl-5.10
Download (untitled) / with headers
text/plain 986b
Here's the demo script: ------------------------------- use warnings; use Inline CPP => <<'EOC'; void greet(AV * foo) { printf("Hello World\n"); } EOC my @test = (1, 2); greet(\@test); ------------------------------- Prior to perl 5.10, there's no problem with that script. But with perl 5.10, the script compiles, but then produces the error that it "Can't locate auto/main/greet.al in @INC ... ". Here's a patch that fixes the problem (though I don't know that it's the correct fix): ------------------------------- --- CPP.pm_orig Tue Jun 3 16:43:39 2008 +++ CPP.pm Wed Jun 4 12:27:24 2008 @@ -478,8 +478,12 @@ my $dir = shift; my $preproc = shift; my $tkind = $o->{ILSM}{typeconv}{type_kind}{$type}; - my $ret = + my $ret; + { + no strict; + $ret = eval qq{qq{$o->{ILSM}{typeconv}{$dir}{$tkind}}}; + } chomp $ret; $ret =~ s/\n/\\\n/g if $preproc; return $ret; ------------------------------- Cheers, Rob
The patch has been applied and will be included in the next release (0.29)


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.