| … | … | ||
|---|---|---|---|
| 28 | my %cache; | 28 | my %cache; |
| 29 | 29 | ||
| 30 | my $idx = 0; | 30 | my $idx = 0; |
| 31 | 31 | ||
| 32 | for my $name (sort keys %$tile) { | 32 | for my $name (sort keys %$tile) { |
| 33 | my ($fh, $filename) = tempfile; | 33 | my ($fh, $filename) = File::Temp::tempfile; |
| 34 | 34 | ||
| 35 | print $fh $tile->{$name}; | 35 | print $fh $tile->{$name}; |
| 36 | close $fh; | 36 | close $fh; |
| 37 | 37 | ||
| 38 | my $tile = $cache{$name} = {}; | 38 | my $tile = $cache{$name} = {}; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |