| version 1.7 | version 1.8 | |||
|---|---|---|---|---|
|
| |||
| foreach $treasure (@treasure_files) { | foreach $treasure (@treasure_files) { | |||
| open(TREAS, $treasure) || &die("cannot open ".$treasure); | open(TREAS, $treasure) || &die("cannot open ".$treasure); | |||
| while(<TREAS>) { | while(<TREAS>) { | |||
| if (! /^\s*$/) { | ||||
| print TREASURES $_; | print TREASURES $_; | |||
| } | } | |||
| } | ||||
| close(FACE); | close(FACE); | |||
| } | } | |||
| } | } |
Legend:
| ||||||