Added missing parameter to $versions->first(). How could this have

worked before?
This commit is contained in:
hjp 2013-12-01 18:49:32 +00:00
parent 4a046ecf3d
commit b58ef04af7
1 changed files with 2 additions and 1 deletions

View File

@ -94,8 +94,9 @@ sub remove_orphaned_versions {
$i++;
}
$dbh->{'mysql_use_result'} = 0;
print "\t$i records from instances processed, ", $versions->count(0, -1), " versions left\n";
for (my $version = $versions->first; $version; $version = $versions->next($version)) {
for (my $version = $versions->first(0); $version; $version = $versions->next($version)) {
$dbh->do(q{delete from versions2 where id=?}, {}, $version);
print "\tversion $version deleted\n";
}