123 };

   123 };

   124 

   124 

   125 # anything matching these will not be sent to anyone

   125 # anything matching these will not be sent to anyone

   126 my $unimportant = '^'

   126 my $unimportant = '^'

   127   . ( join '|',

   127   . ( join '|',

   128     "Exporting indices...",

   129     "Exporting indices...",

   129     "while there already is '[^']+' in there.",

   130     "while there already is '[^']+' in there.",

   130     "(md5|sha(1|256)) expected: [[:xdigit:]]{32,}, got: [[:xdigit:]]{32,}",

   131     "(md5|sha(1|256)) expected: [[:xdigit:]]{32,}, got: [[:xdigit:]]{32,}",

   131     "size expected: \\d+, got: \\d+",

   132     "size expected: \\d+, got: \\d+",

   132     "There have been errors!")

   133     "There have been errors!")