浏览代码

Better way to fix conversion stuff for windows paths..

Erin Schnabel 22 年之前
父节点
当前提交
17b2e6bce4
共有 1 个文件被更改,包括 2 次插入3 次删除
  1. 2 3
      config/conf.pl

+ 2 - 3
config/conf.pl

@@ -40,9 +40,6 @@ if ( defined( $ENV{'PATH_INFO'} )
 ############################################################
 use Cwd;
 $dir = cwd();
-if ( $dir =~ /:/ ) {
-  $dir = substr($dir, index($dir, ':') + 1);
-}
   
 
 ############################################################              
@@ -3001,7 +2998,9 @@ sub change_to_SM_path() {
     # 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 '