… | … | ||
---|---|---|---|
100 | 100 | ||
101 | print $uu->filename; | 101 | print $uu->filename; |
102 | 102 | ||
103 | $uu->remove_temp; | 103 | $uu->remove_temp; |
104 | 104 | ||
105 | if (my $err = $uu->decode ()) { | 105 | if (my $err = $uu->decode) { |
106 | print ", ", strerror $err, "\n"; | 106 | print ", ", strerror $err, "\n"; |
107 | } else { | 107 | } else { |
108 | print ", saved as uudst/", $uu->filename, "\n"; | 108 | print ", saved as uudst/", $uu->filename, "\n"; |
109 | } | 109 | } |
110 | } | 110 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |