1N/AFile::Spec::Epoc - methods for Epoc file specs 1N/A require File::Spec::Epoc; # Done internally by File::Spec if needed 1N/ASee File::Spec::Unix for a documentation of the methods provided 1N/Athere. This package overrides the implementation of these methods, not 1N/AThis package is still work in progress ;-) 1N/ANo physical check on the filesystem, but a logical cleanup of a 1N/Apath. On UNIX eliminated successive slashes and successive "/.". 1N/A $
path =~ s|^(\./)+||s
unless $
path eq "./";
# ./xx -> xx 1N/A $
path =~ s|^/(\.\./)+|/|s;
# /../../xx -> xx 1N/A $
path =~ s|/\Z(?!\n)||
unless $
path eq "/";
# xx/ -> xx 1N/ASee L<File::Spec> and L<File::Spec::Unix>. This package overrides the 1N/Aimplementation of these methods, not the semantics.