for my $mbox (@ARGV) {
# Delete ~/.offlineimap/Repository-{Local,Remote}Lists/FolderValidity/mbox
# initialcaps account needed for the account name
- my $cmd = qq(rm -f $options{offlineimap}/Repository-Local).
+ my @cmd = ('rm','-f',qq($options{offlineimap}/Repository-Local).
ucfirst($options{account}).
- qq(/FolderValidity/$mbox;\n);
- print $cmd;
- qx($cmd);
- $cmd = qq(rm -f $options{offlineimap}/Repository-Remote).
+ qq(/FolderValidity/$mbox));
+ print join(' ',@cmd);
+ system @cmd;
+ @cmd = ('rm','-f',qq($options{offlineimap}/Repository-Remote).
ucfirst($options{account}).
- qq(/FolderValidity/$options{account}.$mbox;\n);
- print $cmd;
- qx($cmd);
+ qq(/FolderValidity/$options{account}.$mbox));
+ print join(' ',@cmd);
+ system @cmd;
# Delete ~/.offlineimap/Account-Lists/mbox
- $cmd = qq(rm -f $options{offlineimap}/Account-).ucfirst($options{account}).
- qq(/LocalStatus/$mbox;\n);
- print $cmd;
- qx($cmd);
+ @cmd = ('rm','-fr',qq($options{offlineimap}/Account-).ucfirst($options{account}).
+ qq(/LocalStatus/$mbox));
+ print join(' ',@cmd);
+ system @cmd;
# Delete ~/Mail/mbox
- $cmd = qq(rm -rf $options{maildir}/$options{account}/$mbox;\n);
- print $cmd;
- qx($cmd);
+ @cmd = ('rm','-fr',qq($options{maildir}/$options{account}/$mbox));
+ print join(' ',@cmd);
+ system @cmd;
}