Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

use IO::Zlib methods

  • Loading branch information...
commit aeea731ce8cbdc94d6aff01b79b9d5a71786d33f 1 parent 54ee780
Masahiro Nagano kazeburo authored

Showing 1 changed file with 3 additions and 3 deletions. Show diff stats Hide diff stats

  1. +3 3 lib/OrePAN/Package/Index.pm
6 lib/OrePAN/Package/Index.pm
@@ -93,10 +93,10 @@ sub save {
93 93 # partion with target file.
94 94 my $tmp = mktemp($self->filename . '.XXXXXX');
95 95
96   - my $fh = IO::Zlib->new($tmp, 'wb') or die $!;
97   - print {$fh} "File: 02packages.details.txt\n\n";
  96 + my $fh = IO::Zlib->new($tmp,'wb') or die $!;
  97 + $fh->print("File: 02packages.details.txt\n\n");
98 98 for my $key ( sort keys %modules ) {
99   - print {$fh} sprintf("%s\t%s\t%s\n", $key, $modules{$key}->[0] || 'undef', $modules{$key}->[1]);
  99 + $fh->print(sprintf("%s\t%s\t%s\n", $key, $modules{$key}->[0] || 'undef', $modules{$key}->[1]));
100 100 }
101 101 $fh->close();
102 102

0 comments on commit aeea731

Please sign in to comment.
Something went wrong with that request. Please try again.