+ if ($xml !~ /<(e:)?databaseInfo.*?>/) {
+ # There is an undeletable phantom record: ignore it
+ next;
+ }
+
+ if ($setUdb) {
+ my $udb = qq[<i:udb xmlns:i="http://indexdata.com/irspy/1.0">irspy-$i</i:udb>];
+ $xml =~ s/<(e:)?databaseInfo.*?>/$&$udb/;
+ }
+