+sub glob_compressed_fh {
+ my ($fn) = @_;
+ my @fn = grep { -f $_ } glob $fn;
+ if (not @fn) {
+ die "No files exist which match glob '$fn'";
+ }
+ my $fh = Debbugs::Common::open_compressed_file($fn[0]) or
+ die "Unable to open $fn for reading: $!";
+ return $fh;
+}
+