| … | … | ||
|---|---|---|---|
| 402 | while (<$fh>) { | 402 | while (<$fh>) { |
| 403 | $data .= $_; | 403 | $data .= $_; |
| 404 | last if /^$/; | 404 | last if /^$/; |
| 405 | } | 405 | } |
| 406 | 406 | ||
| 407 | # sokevo internally locks some cells | ||
| 408 | $data =~ y/^%:,;-=?/ #.$* +#/; | ||
| 409 | |||
| 407 | push @levels, new Games::Sokoban data => $data; | 410 | push @levels, new Games::Sokoban data => $data; |
| 408 | } | 411 | } |
| 409 | } | 412 | } |
| 410 | 413 | ||
| 411 | \@levels | 414 | \@levels |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |