Added missing parameter to $versions->first(). How could this have
worked before?
This commit is contained in:
parent
4a046ecf3d
commit
b58ef04af7
|
@ -94,8 +94,9 @@ sub remove_orphaned_versions {
|
||||||
$i++;
|
$i++;
|
||||||
}
|
}
|
||||||
$dbh->{'mysql_use_result'} = 0;
|
$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);
|
$dbh->do(q{delete from versions2 where id=?}, {}, $version);
|
||||||
print "\tversion $version deleted\n";
|
print "\tversion $version deleted\n";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue