[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