- if ($filename =~ m/sql$/) {
- $self->process_query($dbh, $filename, $version_or_control);
- } else {
- $self->process_perl_script($dbh, $filename, $version_or_control);
- }
-}
-
-sub update_available {
- my ($self, $cur_version) = @_;
-
- local *SQLDIR;
-
- opendir SQLDIR, "sql/Pg-upgrade" || error("", "sql/Pg-upgrade: $!");
- my @upgradescripts = grep /Pg-upgrade-\Q$cur_version\E.*\.(sql|pl)$/, readdir SQLDIR;
- closedir SQLDIR;
-
- return ($#upgradescripts > -1);
+ return $filename =~ m/sql$/ ? $self->process_query( $dbh, $filename, $version_or_control)
+ : $self->process_perl_script($dbh, $filename, $version_or_control);