From f2fe6e51530a3aeea724f1ae11e5df008dc2798b Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sat, 5 Aug 2017 17:22:27 -0700 Subject: [PATCH] open_compressed_file is in Debbugs::Common --- bin/debbugs-loadsql | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql index b5d9118..6a159fe 100755 --- a/bin/debbugs-loadsql +++ b/bin/debbugs-loadsql @@ -132,7 +132,7 @@ Display this manual. use vars qw($DEBUG); use Debbugs::Common (qw(checkpid lockpid get_hashname getparsedaddrs getbugcomponent make_list getsourcemaintainers), - qw(hash_slice)); + qw(hash_slice open_compressed_file),); use Debbugs::Config qw(:config); use Debbugs::Status qw(read_bug split_status_fields); use Debbugs::Log; @@ -692,27 +692,6 @@ sub db_connect { die "Unable to connect to database: "; } -sub open_compressed_file { - my ($file) = @_; - my $fh; - my $mode = '<:encoding(UTF-8)'; - my @opts; - if ($file =~ /\.gz$/) { - $mode = '-|:encoding(UTF-8)'; - push @opts,'gzip','-dc'; - } - if ($file =~ /\.xz$/) { - $mode = '-|:encoding(UTF-8)'; - push @opts,'xz','-dc'; - } - if ($file =~ /\.bz2$/) { - $mode = '-|:encoding(UTF-8)'; - push @opts,'bzip2','-dc'; - } - open($fh,$mode,@opts,$file); - return $fh; -} - sub read_release_file { my ($file) = @_; # parse release -- 2.39.2