oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

run upgrades in alphabetical order

Browse source
This commit is contained in:
Graham Knop 2010-09-21 13:12:44 -05:00
parent 4c4ff79ec9
commit 6f4e3415ea
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Upgrade.pm
View file

@ -323,6 +323,7 @@ sub runUpgradeStep {
my ($version) = $step =~ /-(\d+\.\d+\.\d+)$/; my ($version) = $step =~ /-(\d+\.\d+\.\d+)$/;
my $upgradesDir = File::Spec->catdir(WebGUI::Paths->upgrades, $step); my $upgradesDir = File::Spec->catdir(WebGUI::Paths->upgrades, $step);
my @files;
opendir my($dh), $upgradesDir or die "Can't get upgrades for $step: $!\n"; opendir my($dh), $upgradesDir or die "Can't get upgrades for $step: $!\n";
while ( my $upgradeFile = readdir $dh ) { while ( my $upgradeFile = readdir $dh ) {
next next
@ -330,9 +331,12 @@ sub runUpgradeStep {
my $filename = File::Spec->catfile($upgradesDir, $upgradeFile); my $filename = File::Spec->catfile($upgradesDir, $upgradeFile);
next next
unless -f $filename; unless -f $filename;
$self->runUpgradeFile($configFile, $version, $filename); push @files, $filename;
} }
closedir $dh; closedir $dh;
for my $filename ( sort @files ) {
$self->runUpgradeFile($configFile, $version, $filename);
}
$self->markVersionUpgrade($configFile, $version); $self->markVersionUpgrade($configFile, $version);
} }