Author: timbo
Date: Wed Sep  2 03:12:23 2009
New Revision: 13256

Modified:
   dbi/trunk/dbilogstrip.PL
   dbi/trunk/dbiprof.PL
   dbi/trunk/dbiproxy.PL

Log:
Avoid noise from warnings generated when syntax checking expanded .PL files
Thanks to Jan Dubois https://rt.cpan.org/Ticket/Display.html?id=48979


Modified: dbi/trunk/dbilogstrip.PL
==============================================================================
--- dbi/trunk/dbilogstrip.PL    (original)
+++ dbi/trunk/dbilogstrip.PL    Wed Sep  2 03:12:23 2009
@@ -67,5 +67,5 @@
 chmod 0755, $file;
 print "Extracted $file from ",__FILE__," with variable substitutions.\n";
 # syntax check resulting file, but only for developers
-exit 1 if system($^X, '-wc', '-Mblib', $file) != 0 && -d ".svn";
+exit 1 if -d ".svn" and system($^X, '-wc', '-Mblib', $file) != 0;
 

Modified: dbi/trunk/dbiprof.PL
==============================================================================
--- dbi/trunk/dbiprof.PL        (original)
+++ dbi/trunk/dbiprof.PL        Wed Sep  2 03:12:23 2009
@@ -283,5 +283,5 @@
 print "Extracted $file from ",__FILE__," with variable substitutions.\n";
 
 # syntax check resulting file, but only for developers
-exit 1 if system($^X, '-wc', '-Mblib', $file) != 0 && -d ".svn";
+exit 1 if -d ".svn" and system($^X, '-wc', '-Mblib', $file) != 0;
 

Modified: dbi/trunk/dbiproxy.PL
==============================================================================
--- dbi/trunk/dbiproxy.PL       (original)
+++ dbi/trunk/dbiproxy.PL       Wed Sep  2 03:12:23 2009
@@ -204,6 +204,5 @@
 print "Extracted $file from ",__FILE__," with variable substitutions.\n";
 
 # syntax check resulting file, but only for developers
-exit 1 if system($^X, '-wc', '-Mblib', $file) != 0 && -d ".svn";
-
+exit 1 if -d ".svn" and system($^X, '-wc', '-Mblib', $file) != 0;
 

Reply via email to