#
# Filter out "/../". Repeatedly.
while ( $path =~ /(.*)\/*\.\.\/(.*)/ )
while ( $path =~ /(.*)[\\\/]\.\.[\\\/](.*)/ )
{
$path = $1 . $2;
}
# Clean up multiple adjacent '/' characters.
while ( $path =~ /(.*)\/\/(.*)/ )
$path = $1 . "/" . $2;
return( $path );
