Author: timbo Date: Thu Aug 23 06:39:12 2007 New Revision: 9874 Modified: dbi/trunk/Changes dbi/trunk/dbilogstrip.PL dbi/trunk/dbiprof.PL dbi/trunk/dbiproxy.PL
Log: Only fail on syntax check of .PL files if a developer Modified: dbi/trunk/Changes ============================================================================== --- dbi/trunk/Changes (original) +++ dbi/trunk/Changes Thu Aug 23 06:39:12 2007 @@ -41,7 +41,7 @@ Call method on transport failure so transport can cleanup/reset if it wants Gofer: gearman - need to disable coallesing for non-idempotent requests -=head2 Changes in DBI 1.59 (svn rev XXX), XXth June 2007 +=head2 Changes in DBI 1.59 (svn rev 9874), 23rd August 2007 Fixed DBI::ProfileData to unescape headers lines read from data file. Fixed DBI::ProfileData to not clobber $_, thanks to Alexey Tourbin. Modified: dbi/trunk/dbilogstrip.PL ============================================================================== --- dbi/trunk/dbilogstrip.PL (original) +++ dbi/trunk/dbilogstrip.PL Thu Aug 23 06:39:12 2007 @@ -66,6 +66,6 @@ } chmod 0755, $file; print "Extracted $file from ",__FILE__," with variable substitutions.\n"; -# syntax check resulting file -exit 1 unless system($^X, '-wc', $file) == 0; +# syntax check resulting file, but only for developers +exit 1 if system($^X, '-wc', '-Mblib', $file) != 0 && -d ".svn"; Modified: dbi/trunk/dbiprof.PL ============================================================================== --- dbi/trunk/dbiprof.PL (original) +++ dbi/trunk/dbiprof.PL Thu Aug 23 06:39:12 2007 @@ -281,5 +281,7 @@ } chmod 0755, $file; print "Extracted $file from ",__FILE__," with variable substitutions.\n"; -# syntax check resulting file -exit 1 unless system($^X, '-wc', $file) == 0; + +# syntax check resulting file, but only for developers +exit 1 if system($^X, '-wc', '-Mblib', $file) != 0 && -d ".svn"; + Modified: dbi/trunk/dbiproxy.PL ============================================================================== --- dbi/trunk/dbiproxy.PL (original) +++ dbi/trunk/dbiproxy.PL Thu Aug 23 06:39:12 2007 @@ -202,5 +202,8 @@ } chmod 0755, $file; print "Extracted $file from ",__FILE__," with variable substitutions.\n"; -# syntax check resulting file -exit 1 unless system($^X, '-wc', $file) == 0; + +# syntax check resulting file, but only for developers +exit 1 if system($^X, '-wc', '-Mblib', $file) != 0 && -d ".svn"; + +
