[freeside-commits] freeside/FS/bin freeside-upgrade,1.33,1.34

Ivan,,, ivan at wavetail.420.am
Mon Dec 28 20:49:03 PST 2009


Update of /home/cvs/cvsroot/freeside/FS/bin
In directory wavetail.420.am:/tmp/cvs-serv13045

Modified Files:
	freeside-upgrade 
Log Message:
output SQL statements as we run them (and only the ones we run), not immediately

Index: freeside-upgrade
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/bin/freeside-upgrade,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- freeside-upgrade	29 Dec 2009 04:24:27 -0000	1.33
+++ freeside-upgrade	29 Dec 2009 04:49:01 -0000	1.34
@@ -41,9 +41,9 @@
 warn "Upgrade startup completed in ". (time-$start). " seconds\n"; # if $DEBUG;
 $start = time;
 
-$DBIx::DBSchema::DEBUG = $DEBUG;
-$DBIx::DBSchema::Table::DEBUG = $DEBUG;
-$DBIx::DBSchema::Index::DEBUG = $DEBUG;
+#$DBIx::DBSchema::DEBUG = $DEBUG;
+#$DBIx::DBSchema::Table::DEBUG = $DEBUG;
+#$DBIx::DBSchema::Index::DEBUG = $DEBUG;
 
 my @bugfix = ();
 
@@ -77,6 +77,7 @@
   exit;
 } else {
   foreach my $statement ( @bugfix, @statements ) {
+    warn "$statement\n";
     $dbh->do( $statement )
       or die "Error: ". $dbh->errstr. "\n executing: $statement";
   }



More information about the freeside-commits mailing list