[interchange-cvs] [SCM] Interchange branch, STABLE_5_6-branch, updated. d58c5363ad94ce634b0f2597ca15d4578b261b26

[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, STABLE_5_6-branch has been updated
       via  d58c5363ad94ce634b0f2597ca15d4578b261b26 (commit)
      from  c555bb6df02c8a70af27ff4e531e9f72e65ebb50 (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 d58c5363ad94ce634b0f2597ca15d4578b261b26
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.6 |    2 ++
 hints.pl     |   12 +++++++-----
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/WHATSNEW-5.6 b/WHATSNEW-5.6
index b9b4569..96576d7 100644
--- a/WHATSNEW-5.6
+++ b/WHATSNEW-5.6
@@ -25,6 +25,8 @@ Core
 
   Thanks to David Christensen <david at endpoint.com> for the fix.
 
+* Update broken getppid() detection for Perl 5.10.0.
+
 UI
 --
 
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