Front page | perl.perl5.porters |
Postings from December 2003
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