############################################################
use Cwd;
$dir = cwd();
-if ( $dir =~ /:/ ) {
- $dir = substr($dir, index($dir, ':') + 1);
-}
############################################################
# If the path is absolute, don't bother.
return "\'" . $old_path . "\'" if ( $old_path eq '');
return "\'" . $old_path . "\'" if ( $old_path =~ /^(\/|http)/ );
+ return "\'" . $old_path . "\'" if ( $old_path =~ /^\w:\// );
return $old_path if ( $old_path =~ /^\'(\/|http)/ );
+ return $old_path if ( $old_path =~ /^\'\w:\// );
return $old_path if ( $old_path =~ /^(\$|SM_PATH)/);
# Remove remaining '