| … | |
… | |
| 96 | print "$k > $v, "; |
96 | print "$k > $v, "; |
| 97 | } |
97 | } |
| 98 | print "\n"; |
98 | print "\n"; |
| 99 | } |
99 | } |
| 100 | |
100 | |
| 101 | $uu->decode_temp; |
101 | print $uu->filename; |
| 102 | print " temporarily decoded to ", $uu->binfile, "\n"; |
102 | |
| 103 | $uu->remove_temp; |
103 | $uu->remove_temp; |
| 104 | |
104 | |
| 105 | print strerror $uu->decode; |
105 | if (my $err = $uu->decode ()) { |
|
|
106 | print ", ", strerror $err, "\n"; |
|
|
107 | } else { |
| 106 | print " saved as uudst/", $uu->filename, "\n"; |
108 | print ", saved as uudst/", $uu->filename, "\n"; |
|
|
109 | } |
| 107 | } |
110 | } |
| 108 | |
111 | |
| 109 | print "cleanup...\n"; |
112 | print "cleanup...\n"; |
| 110 | |
113 | |
| 111 | CleanUp(); |
114 | CleanUp; |
