my($fullname,@suffices) = @_;
unless (defined $fullname) {
require Carp;
- Carp::croak "fileparse(): need a valid pathname";
+ Carp::croak("fileparse(): need a valid pathname");
}
my($fstype,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
my($dirpath,$tail,$suffix,$basename);
$tail .= $taint if defined $tail; # avoid warning if $tail == undef
wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
- : $basename .= $taint;
+ : ($basename .= $taint);
}