[interchange-cvs] interchange - heins modified 2 files

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Tue Apr 8 18:48:01 2003


User:      heins
Date:      2003-04-08 22:47:07 GMT
Modified:  .        Makefile.PL
Modified:  scripts  interchange.PL
Log:
* No thread-enabled perls allowed.

Revision  Changes    Path
2.37      +4 -0      interchange/Makefile.PL


rev 2.37, prev_rev 2.36
Index: Makefile.PL
===================================================================
RCS file: /var/cvs/interchange/Makefile.PL,v
retrieving revision 2.36
retrieving revision 2.37
diff -u -r2.36 -r2.37
--- Makefile.PL	1 Apr 2003 23:15:35 -0000	2.36
+++ Makefile.PL	8 Apr 2003 22:47:07 -0000	2.37
@@ -59,6 +59,10 @@
 	$ENV{PERL_RL} = 'Perl';
 }
 
+if($Config{usethreads} || $Config{useithreads} || $Config{use5005threads}) {
+	die "Interchange will not work with a thread-enabled perl.\n";
+}
+
 my $term;
 if($TermRead) {
 	eval {



2.69      +11 -1     interchange/scripts/interchange.PL


rev 2.69, prev_rev 2.68
Index: interchange.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/interchange.PL,v
retrieving revision 2.68
retrieving revision 2.69
diff -u -r2.68 -r2.69
--- interchange.PL	1 Apr 2003 04:12:31 -0000	2.68
+++ interchange.PL	8 Apr 2003 22:47:07 -0000	2.69
@@ -3,7 +3,7 @@
 #
 # Interchange version 4.9.7
 #
-# $Id: interchange.PL,v 2.68 2003/04/01 04:12:31 mheins Exp $
+# $Id: interchange.PL,v 2.69 2003/04/08 22:47:07 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. and others.
 # http://www.icdevgroup.org/
@@ -34,6 +34,16 @@
 #use lib '~_~INSTALLARCHLIB~_~';
 
 use strict;
+
+use Config;
+
+BEGIN {
+	if($Config{usethreads} || $Config{useithreads} || $Config{use5005threads}) {
+		die "Interchange will not work with a thread-enabled perl.\n";
+	}
+}
+
+no Config;
 
 BEGIN {
 	$Global::Foreground = 1;