[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;