Revision 4eab0ccf
Von Moritz Bunkus vor fast 8 Jahren hinzugefügt
SL/DBUpgrade2/Base.pm | ||
---|---|---|
30 | 30 |
die $EVAL_ERROR; |
31 | 31 |
} |
32 | 32 |
|
33 |
my $auth = $file_name =~ m{/Pg-upgrade2-auth/} ? 'Auth::' : ''; |
|
33 | 34 |
my $package = delete $params{tag}; |
34 | 35 |
$package =~ s/[^a-zA-Z0-9_]+/_/g; |
35 |
$package = "SL::DBUpgrade2::${package}"; |
|
36 |
$package = "SL::DBUpgrade2::${auth}${package}";
|
|
36 | 37 |
|
37 | 38 |
$package->new(%params)->run; |
38 | 39 |
} |
Auch abrufbar als: Unified diff
Auth-DB-Upgrades alle nach SL::DBUpgrade2::Auth verschieben
Das verhindert eine Warnung wegen Umdefinition der Funktion
»SL::DBUpgrade2::clients::run« während der Tests, weil es das Script
»clients.pl« sowohl für die Auth-DB als auch für die Haupt-DB gibt.