- $dbh->commit();
-
- $::lxdebug->leave_sub();
-}
-
-sub process_file {
- my ($self, $dbh, $filename, $version_or_control, $db_charset) = @_;
-
- if ($filename =~ m/sql$/) {
- $self->process_query($dbh, $filename, $version_or_control, $db_charset);
- } else {
- $self->process_perl_script($dbh, $filename, $version_or_control, $db_charset);
- }
-}