run upgrades in alphabetical order

plainblack · Sep 21, 2010 · 6f4e341 · 6f4e341
1 parent 4c4ff79
commit 6f4e341
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/WebGUI/Upgrade.pm b/lib/WebGUI/Upgrade.pm
@@ -323,16 +323,20 @@ sub runUpgradeStep {
 
     my ($version) = $step =~ /-(\d+\.\d+\.\d+)$/;
     my $upgradesDir = File::Spec->catdir(WebGUI::Paths->upgrades, $step);
+    my @files;
     opendir my($dh), $upgradesDir or die "Can't get upgrades for $step: $!\n";
     while ( my $upgradeFile = readdir $dh ) {
         next
             if $upgradeFile =~ /^\./;
         my $filename = File::Spec->catfile($upgradesDir, $upgradeFile);
         next
             unless -f $filename;
-        $self->runUpgradeFile($configFile, $version, $filename);
+        push @files, $filename;
     }
     closedir $dh;
+    for my $filename ( sort @files ) {
+        $self->runUpgradeFile($configFile, $version, $filename);
+    }
     $self->markVersionUpgrade($configFile, $version);
 }