Re^2: catfile/catdir collapses two leading slashes //

[repellent]

Sure. But let's not stray off-topic :)

use File::Spec::Functions qw(catdir catpath splitdir splitpath);

my ($volume, $directories, $file) = splitpath '//special/semantic//pat
+h/definition';

my @dir = splitdir $directories;

my $dir1 = catdir @dir;    # '/special/semantic/path'
my $dir2 = join '/', @dir; # '//special/semantic//path/'

my $path1 = catpath $volume, $dir1, $file; # '/special/semantic/path/d
+efinition'
my $path2 = catpath $volume, $dir2, $file; # '//special/semantic//path
+/definition'

The name of a directory is not the same as its pathname

There's always confusion with file nomenclature. See File system nomenclature. Death to path!