[interchange-cvs] [SCM] Interchange branch, master, updated. ba0d8b7d2d9692e2d60ac536c73fe52b966f56ec

[Jon Jensen]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Interchange".

The branch, master has been updated
       via  ba0d8b7d2d9692e2d60ac536c73fe52b966f56ec (commit)
      from  b9ca457ebb35a91a6698aa3642ad55dc0e361bfd (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit ba0d8b7d2d9692e2d60ac536c73fe52b966f56ec
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Sat Jun 27 11:30:34 2009 +0200

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

-----------------------------------------------------------------------

Summary of changes and diff:
 WHATSNEW-5.7 |    2 ++
 hints.pl     |   12 +++++++-----
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/WHATSNEW-5.7 b/WHATSNEW-5.7
index 678fded..52dc6b8 100644
--- a/WHATSNEW-5.7
+++ b/WHATSNEW-5.7
@@ -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
 -------
 
diff --git a/hints.pl b/hints.pl
index 405cb49..b238c98 100644
--- a/hints.pl
+++ b/hints.pl
@@ -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 ];
 


hooks/post-receive
-- 
Interchange