equal
deleted
inserted
replaced
64 if ($dst eq "-") { open($out => ">&STDOUT") } |
64 if ($dst eq "-") { open($out => ">&STDOUT") } |
65 else { open($out => ">", $dst) } |
65 else { open($out => ">", $dst) } |
66 |
66 |
67 while (<$fh>) { |
67 while (<$fh>) { |
68 next if /^#/; |
68 next if /^#/; |
69 my ($blk, $hash, $path) = split; |
69 my ($blk, undef, $path) = split; |
70 my $buffer; |
70 my $buffer; |
71 if (-f "$data/$path") { Imager::get_block("$data/$path" => \$buffer) } |
71 Imager::get_block("$data/$path*" => \$buffer); |
72 elsif (-f "$data/$path.gz") { |
|
73 Imager::get_block("$data/$path.gz" => \$buffer); |
|
74 } |
|
75 elsif (-f "$data/$path.x") { |
|
76 Imager::get_block("$data/$path.x" => \$buffer); |
|
77 } |
|
78 elsif (-f "$data/$path.gz.x") { |
|
79 Imager::get_block("$data/$path.gz.x" => \$buffer); |
|
80 } |
|
81 else { die ME . ": Can't open $data/$path: $!\n" } |
|
82 print {$out} $buffer; |
72 print {$out} $buffer; |
83 } |
73 } |
84 close($out); |
74 close($out); |
85 close($fh); |
75 close($fh); |
86 } |
76 } |