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