| … | |
… | |
| 58 | print "$k > $v, "; |
58 | print "$k > $v, "; |
| 59 | } |
59 | } |
| 60 | print "\n"; |
60 | print "\n"; |
| 61 | } |
61 | } |
| 62 | |
62 | |
| 63 | $uu->decode_temp; |
63 | print strerror($uu->decode_temp)."\n"; |
| 64 | print " temporarily decoded to ",$uu->binfile,"\n"; |
64 | print " temporarily decoded to ",$uu->binfile,"\n"; |
| 65 | $uu->remove_temp; |
65 | $uu->remove_temp; |
| 66 | |
66 | |
| 67 | print strerror($uu->decode); |
67 | print strerror($uu->decode)."\n"; |
| 68 | print " saved as uudst/",$uu->filename,"\n"; |
68 | print " saved as uudst/",$uu->filename,"\n"; |
| 69 | } |
69 | } |
| 70 | |
70 | |
| 71 | print "cleanup...\n"; |
71 | print "cleanup...\n"; |
| 72 | |
72 | |
