--- Convert-UUlib/example-decoder 2008/10/10 20:23:12 1.14 +++ Convert-UUlib/example-decoder 2008/10/13 12:12:56 1.15 @@ -101,20 +101,16 @@ } print $uu->filename; - if (my $err = $uu->decode_temp) { - print " ", strerror $err, "\n"; - } else { - print " temporarily decoded to ", $uu->binfile; - $uu->remove_temp; - if (my $err = $uu->decode ()) { - print ", ", strerror $err, "\n"; - } else { - print ", saved as uudst/", $uu->filename, "\n"; - } + $uu->remove_temp; + + if (my $err = $uu->decode ()) { + print ", ", strerror $err, "\n"; + } else { + print ", saved as uudst/", $uu->filename, "\n"; } } print "cleanup...\n"; -CleanUp(); +CleanUp;