Permalink
Browse files

use IO::Zlib methods

  • Loading branch information...
1 parent 54ee780 commit aeea731ce8cbdc94d6aff01b79b9d5a71786d33f @kazeburo kazeburo committed Apr 17, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/OrePAN/Package/Index.pm
View
6 lib/OrePAN/Package/Index.pm
@@ -93,10 +93,10 @@ sub save {
# partion with target file.
my $tmp = mktemp($self->filename . '.XXXXXX');
- my $fh = IO::Zlib->new($tmp, 'wb') or die $!;
- print {$fh} "File: 02packages.details.txt\n\n";
+ my $fh = IO::Zlib->new($tmp,'wb') or die $!;
+ $fh->print("File: 02packages.details.txt\n\n");
for my $key ( sort keys %modules ) {
- print {$fh} sprintf("%s\t%s\t%s\n", $key, $modules{$key}->[0] || 'undef', $modules{$key}->[1]);
+ $fh->print(sprintf("%s\t%s\t%s\n", $key, $modules{$key}->[0] || 'undef', $modules{$key}->[1]));
}
$fh->close();

0 comments on commit aeea731

Please sign in to comment.