develooper Front page | perl.perl5.porters | Postings from December 2003

Re: [perl #24468] 5.8.2: Interface cannot be compiled with C++

Thread Next
From:
Chip Salzenberg
Date:
December 21, 2003 11:22
Subject:
Re: [perl #24468] 5.8.2: Interface cannot be compiled with C++
Message ID:
20031221192209.GE28432@perlsupport.com
According to Nicholas Clark via RT:
> There has been no feedback on this.

It works!  I could have sworn I mailed back to you about it...

Anyway, just to make sure we're talking about the same thing, here's
my record of the patch that fixed the problem for Debian.  Of course
after application, reentr.pl must be re-run, which modifies a file or
two...

--- reentr.pl.~1~	Wed Nov 12 15:12:34 2003
+++ reentr.pl	Wed Nov 12 15:12:34 2003
@@ -695,7 +695,7 @@
 		if ($func =~ /^get/) {
 		    my $rv = $v ? ", $v" : "";
 		    if ($r eq 'I') {
-			$call = qq[((PL_REENTRANT_RETINT = $call)$test ? $true : (((PL_REENTRANT_RETINT == ERANGE) || (errno == ERANGE)) ? Perl_reentrant_retry("$func"$rv) : 0))];
+			$call = qq[((PL_REENTRANT_RETINT = $call)$test ? $true : (((PL_REENTRANT_RETINT == ERANGE) || (errno == ERANGE)) ? ($seenm{$func}{$seenr{$func}})Perl_reentrant_retry("$func"$rv) : 0))];
 			my $arg = join(", ", map { $seenm{$func}{substr($a,$_,1)}." ".$v[$_] } 0..$seenu{$func}-1);
 			my $ret = $seenr{$func} eq 'V' ? "" : "return ";
 			push @wrap, <<EOF;

-- 
Chip Salzenberg               - a.k.a. -               <chip@pobox.com>
"I wanted to play hopscotch with the impenetrable mystery of existence,
    but he stepped in a wormhole and had to go in early."  // MST3K

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About