diff options
| author | ivan <ivan> | 2009-12-29 04:49:02 +0000 | 
|---|---|---|
| committer | ivan <ivan> | 2009-12-29 04:49:02 +0000 | 
| commit | bc7e4182153cbe1bfbd1cd2c4fd235f43ca3bf2c (patch) | |
| tree | 204c5eb872f05f15c1d38fdde6eab6a5201de92e /FS/bin | |
| parent | 9ed2aa6d3a1e63b1f56891c726e2151d0f15abc9 (diff) | |
output SQL statements as we run them (and only the ones we run), not immediately
Diffstat (limited to 'FS/bin')
| -rwxr-xr-x | FS/bin/freeside-upgrade | 7 | 
1 files changed, 4 insertions, 3 deletions
| diff --git a/FS/bin/freeside-upgrade b/FS/bin/freeside-upgrade index 5f9b0f718..49f1df846 100755 --- a/FS/bin/freeside-upgrade +++ b/FS/bin/freeside-upgrade @@ -41,9 +41,9 @@ reload_dbdef($dbdef_file);  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 @@ if ( $DRY_RUN ) {    exit;  } else {    foreach my $statement ( @bugfix, @statements ) { +    warn "$statement\n";      $dbh->do( $statement )        or die "Error: ". $dbh->errstr. "\n executing: $statement";    } | 
