Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

use IO::Zlib methods

  • Loading branch information...
commit aeea731ce8cbdc94d6aff01b79b9d5a71786d33f 1 parent 54ee780
Masahiro Nagano kazeburo authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/OrePAN/Package/Index.pm
6 lib/OrePAN/Package/Index.pm
View
@@ -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();
Please sign in to comment.
Something went wrong with that request. Please try again.