##
my $name = join '-', (
@prefix,
( map @$_, grep { $do_use_path } [ split /:/, $path ] ),
$name,
$suffix,
);
##
##
my $name = join '-', (
@prefix,
( split /:/, $path ) x!! $do_use_path,
$name,
$suffix,
);
##
##
my $name = join '-', (
@prefix,
( split /:/, $path ) if $do_use_path,
$name,
$suffix,
);