This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
a long /etc/groups entry could cause memory exhaustion.
[perl5.git] / reentr.pl
index e1cee6f..a16f33c 100644 (file)
--- a/reentr.pl
+++ b/reentr.pl
@@ -718,7 +718,7 @@ EOF
                    my $rv = $v ? ", $v" : "";
                    if ($r eq 'I') {
                        push @wrap, <<EOF;
-#       define $func($v) ($memzero(PL_reentrant_retint = $call)$test ? $true : (((PL_reentrant_retint == ERANGE) || (errno == ERANGE)) ? ($seent{$func} *) Perl_reentrant_retry("$func"$rv) : 0))
+#       define $func($v) ($memzero(PL_reentrant_retint = $call)$test ? $true : ((PL_reentrant_retint == ERANGE) ? ($seent{$func} *) Perl_reentrant_retry("$func"$rv) : 0))
 EOF
                    } else {
                        push @wrap, <<EOF;