Permalink
Browse files

Correct detection of broken getppid() for Perl 5.10.0 (RT #286)

  • Loading branch information...
1 parent b9ca457 commit ba0d8b7d2d9692e2d60ac536c73fe52b966f56ec @racke racke committed with jonjensen Jun 27, 2009
Showing with 9 additions and 5 deletions.
  1. +2 −0 WHATSNEW-5.7
  2. +7 −5 hints.pl
View
@@ -115,6 +115,8 @@ Core
field to represent that no maximum quantity should be enforced for that
product.
+* Update broken getppid() detection for Perl 5.10.0.
+
Payment
-------
View
@@ -43,16 +43,18 @@ sub get_hints {
while(<HINTIN>) {
print HINTOUT $_;
}
- print HINTOUT <<EOF;
+ if ($^V lt 5.10.0) {
+ print HINTOUT <<EOF;
## Added because threaded Perl on linux has broken getppid() as
## of this distribution
Variable MV_GETPPID_BROKEN 1
EOF
- close HINTIN;
- close HINTOUT;
- unlink "$fn.bak";
- return 1;
+ close HINTIN;
+ close HINTOUT;
+ unlink "$fn.bak";
+ return 1;
+ }
};
push @out, [ $condition, $routine ];

0 comments on commit ba0d8b7

Please sign in to comment.