use SL::Common;
require Exporter;
-@ISA = qw(Exporter);
+our @ISA = qw(Exporter);
-@EXPORT = qw(parse_dbupdate_controls sort_dbupdate_controls);
+our @EXPORT = qw(parse_dbupdate_controls sort_dbupdate_controls);
+
+use strict;
sub parse_dbupdate_controls {
$main::lxdebug->enter_sub();
}
}
+ next if ($control->{ignore});
+
$control->{charset} ||= Common::DEFAULT_CHARSET;
if (!$control->{"tag"}) {
}
sub _dbupdate2_calculate_depth {
- $main::lxdebug->enter_sub();
+ $main::lxdebug->enter_sub(2);
my ($tree, $tag) = @_;
my $node = $tree->{$tag};
- return $main::lxdebug->leave_sub() if (defined($node->{"depth"}));
+ return $main::lxdebug->leave_sub(2) if (defined($node->{"depth"}));
my $max_depth = 0;
$node->{"depth"} = $max_depth + 1;
- $main::lxdebug->leave_sub();
+ $main::lxdebug->leave_sub(2);
}
sub sort_dbupdate_controls {