- elsif (m/^-d$/s) { $d = 1; }
- elsif (!defined($src)) { $src = $_; }
- elsif (!defined($dst)) { $dst = $_; }
- else { usage; }
+ elsif (m/^-d$/s) { $src = shift @ARGV; }
+ elsif (m/^-/s) { usage(); }
+ else { push @dst, $_; }
+ }
+ error ("no source") unless defined($src);
+ error ("no files") unless @dst;
+ foreach my $f (@dst) {
+ set_icon ($src, $f);