[interchange-cvs] interchange - heins modified scripts/interchange.PL

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Apr 30 11:17:10 EDT 2005


User:      heins
Date:      2005-04-30 15:17:10 GMT
Modified:  scripts  interchange.PL
Log:
* Run with warnings by default. (Will this not work when perlpath is
  substituted?)

Revision  Changes    Path
2.84      +3 -3      interchange/scripts/interchange.PL


rev 2.84, prev_rev 2.83
Index: interchange.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/interchange.PL,v
retrieving revision 2.83
retrieving revision 2.84
diff -u -r2.83 -r2.84
--- interchange.PL	27 Feb 2005 08:29:17 -0000	2.83
+++ interchange.PL	30 Apr 2005 15:17:10 -0000	2.84
@@ -1,9 +1,9 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 ##!~_~perlpath~_~
 #
 # Interchange version 5.3.1
 #
-# $Id: interchange.PL,v 2.83 2005/02/27 08:29:17 mheins Exp $
+# $Id: interchange.PL,v 2.84 2005/04/30 15:17:10 mheins Exp $
 #
 # Copyright (C) 2002-2005 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -839,7 +839,7 @@
 			$high_enough = 1;
 		};
 		last SIGNALCHECK unless $high_enough;
-		if($ENV{PERL_SIGNALS} eq 'unsafe') {
+		if($ENV{PERL_SIGNALS} and $ENV{PERL_SIGNALS} eq 'unsafe') {
 			logGlobal("Running with old signals.");
 		}
 		else {








More information about the interchange-cvs mailing list