[carton] 201/472: remove unused gz generation code
Lucas Kanashiro
kanashiro-guest at moszumanska.debian.org
Fri Jul 24 00:38:47 UTC 2015
This is an automated email from the git hooks/post-receive script.
kanashiro-guest pushed a commit to branch master
in repository carton.
commit 96f48370508e2c590b297f707e087d8204011fd4
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date: Thu May 30 16:42:26 2013 +0900
remove unused gz generation code
---
lib/Carton.pm | 9 +--------
1 file changed, 1 insertion(+), 8 deletions(-)
diff --git a/lib/Carton.pm b/lib/Carton.pm
index ecae3cb..72e0ee2 100644
--- a/lib/Carton.pm
+++ b/lib/Carton.pm
@@ -111,14 +111,7 @@ sub build_mirror_file {
my @packages = $self->build_packages($index);
- my $fh;
- if ($file =~ /\.gz$/i) {
- require IO::Compress::Gzip;
- $fh = IO::Compress::Gzip->new($file) or die $IO::Compress::Gzip::GzipError;
- } else {
- open $fh, ">", $file or die $!;
- }
-
+ open my $fh, ">", $file or die $!;
print $fh <<EOF;
File: 02packages.details.txt
URL: http://www.perl.com/CPAN/modules/02packages.details.txt
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git
More information about the Pkg-perl-cvs-commits
mailing list