+ my $call = clean($self->call);
+
+ my $fn;
+ my $try;
+
+ $try = "$base/" . clean(lc $self->call);
+ if (-w $try) {
+ $fn = $try;
+ } else {
+ $try = "$base/" . clean(uc $self->call);
+ if (-w $try) {
+ $fn = $try;
+ }
+ }
+
+ if ($fn && -w $fn) {
+ unless (unlink $fn) {
+ return ($self->msg('m22'. $call));
+ }
+ return ($self->msg('m20', $call));
+ }
+ return ($self->msg('e3', "unset/startup", $call));