X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCommon.pm;h=e892d701d411164e742ec47d0dd9242e445e0ce0;hb=1c4ce01f78b112c2247a08f1a0dc9efb5ab3adca;hp=9305d3f161e27bf410394b3412d385b9c9fb617d;hpb=a844a562081aab9ae8489c293d2f38026b6e87b1;p=debbugs.git

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 9305d3f..e892d70 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -45,6 +45,7 @@ BEGIN{
 				qw(getpseudodesc),
 				qw(package_maintainer),
 				qw(sort_versions),
+				qw(open_compressed_file),
 			       ],
 		     misc   => [qw(make_list globify_scalar english_join checkpid),
 				qw(cleanup_eval_fail),
@@ -239,7 +240,40 @@ sub overwritefile {
 	    die "Unable to rename ${file}.new to $file: $!";
 }
 
+=head2 open_compressed_file
 
+     my $fh = open_compressed_file('foo.gz') or
+          die "Unable to open compressed file: $!";
+
+
+Opens a file; if the file ends in .gz, .xz, or .bz2, the appropriate
+decompression program is forked and output from it is read.
+
+This routine by default opens the file with UTF-8 encoding; if you want some
+other encoding, specify it with the second option.
+
+=cut
+sub open_compressed_file {
+    my ($file,$encoding) = @_;
+    $encoding //= ':encoding(UTF-8)';
+    my $fh;
+    my $mode = "<$encoding";
+    my @opts;
+    if ($file =~ /\.gz$/) {
+	$mode = "-|$encoding";
+	push @opts,'gzip','-dc';
+    }
+    if ($file =~ /\.xz$/) {
+	$mode = "-|$encoding";
+	push @opts,'xz','-dc';
+    }
+    if ($file =~ /\.bz2$/) {
+	$mode = "-|$encoding";
+	push @opts,'bzip2','-dc';
+    }
+    open($fh,$mode,@opts,$file);
+    return $fh;
+}
 
 
 
@@ -431,7 +465,7 @@ sub __add_to_hash {
     }
     $type //= 'address';
     my $fh = IO::File->new($fn,'r') or
-	die "Unable to open $fn for reading: $!";
+	croak "Unable to open $fn for reading: $!";
     binmode($fh,':encoding(UTF-8)');
     while (<$fh>) {
 	chomp;