| changeset 124 | 87081e9cf3ba |
| parent 79 | 4362b3ac6567 |
| 115:0d4074ac2eee | 124:87081e9cf3ba |
|---|---|
75 say " compressed $_"; |
75 say " compressed $_"; |
76 #print STDERR "-"; |
76 #print STDERR "-"; |
77 } |
77 } |
78 |
78 |
79 close $tmp; |
79 close $tmp; |
80 unlink $tmp, $_; |
80 map { unlink } $tmp, $_; |
81 |
81 |
82 return; |
82 return 0; |
83 |
83 |
84 }, |
84 }, |
85 @ARGV |
85 @ARGV |
86 ); |
86 ); |
87 |
|
88 exit 0; |
|
87 |
89 |
88 } |
90 } |
89 |
91 |
90 __END__ |
92 __END__ |
91 |
93 |