The patch for bug 9191 included example updatedatabase stanzas that
require removal before pushing. This patch also updates the
00-checkdatabase-version.t test so that it will not give
false-positives.
SetVersion ($DBversion);
}
-if ( CheckVersion($DBversion) ) {
- print "Upgrade to $DBversion done (Bug 9191: You shouldn't see this)\n";
- SetVersion($DBversion);
-}
-
-$DBversion = "3.11.00.XXX";
-if ( CheckVersion($DBversion) ) {
- print "Upgrade to $DBversion done (Bug 9191: You should see this)\n";
- SetVersion($DBversion);
-}
-
=head1 FUNCTIONS
=head2 TableExists($table)
$line++;
if (/XXX/i) {
#two lines are an exception for updatedatabase (routine SetVersion and TransferToNum)
- next if $file=~ /updatedatabase/ && ( /s\/XXX\$\/999\/;/ || /\$_\[0\]=~ \/XXX\$\/;/ );
+ next
+ if $file =~ /updatedatabase/
+ && ( /s\/XXX\$\/999\/;/
+ || /\$_\[0\]=~ \/XXX\$\/;/
+ || /version contains XXX/
+ || /\$proposed_version =~ m\/XXX\// );
$xxx_found = 1;
last;
}