Author: timbo Date: Mon Jul 16 06:15:36 2007 New Revision: 9746 Modified: dbi/trunk/Changes dbi/trunk/dbilogstrip.PL dbi/trunk/dbiprof.PL dbi/trunk/dbiproxy.PL
Log: Make *.PL self-extracting files do a syntax check on the extracted file Modified: dbi/trunk/Changes ============================================================================== --- dbi/trunk/Changes (original) +++ dbi/trunk/Changes Mon Jul 16 06:15:36 2007 @@ -40,7 +40,10 @@ =head2 Changes in DBI 1.59 (svn rev XXX), XXth June 2007 Fixed DBI::ProfileData to unescape headers lines read from data file. + Fixed DBI::ProfileData to not clobber $_, thanks to Alexey Tourbin. + Fixed DBI::SQL::Nano to not clobber $_, thanks to Alexey Tourbin. Fixed DBI::PurePerl to return undef for ChildHandles if weaken not available. + Fixed dbiprof compile errors, thanks to Alexey Tourbin. Fixed t/03handle.t to skip some tests if ChildHandles not available. =head2 Changes in DBI 1.58 (svn rev 9678), 25th June 2007 Modified: dbi/trunk/dbilogstrip.PL ============================================================================== --- dbi/trunk/dbilogstrip.PL (original) +++ dbi/trunk/dbilogstrip.PL Mon Jul 16 06:15:36 2007 @@ -66,4 +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; Modified: dbi/trunk/dbiprof.PL ============================================================================== --- dbi/trunk/dbiprof.PL (original) +++ dbi/trunk/dbiprof.PL Mon Jul 16 06:15:36 2007 @@ -281,3 +281,5 @@ } chmod 0755, $file; print "Extracted $file from ",__FILE__," with variable substitutions.\n"; +# syntax check resulting file +exit 1 unless system($^X, '-wc', $file) == 0; Modified: dbi/trunk/dbiproxy.PL ============================================================================== --- dbi/trunk/dbiproxy.PL (original) +++ dbi/trunk/dbiproxy.PL Mon Jul 16 06:15:36 2007 @@ -202,3 +202,5 @@ } chmod 0755, $file; print "Extracted $file from ",__FILE__," with variable substitutions.\n"; +# syntax check resulting file +exit 1 unless system($^X, '-wc', $file) == 0;
