浏览代码

use Perl's function for this. Don't know what I was thinking.

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

+ 1 - 5
config/conf.pl

@@ -3023,11 +3023,7 @@ sub change_to_SM_path() {
                 push @abs_path, $subdir;
             }
         }
-        $new_path = "\'";
-	foreach $subdir (@abs_path) {
-          $new_path .= '/' . $subdir;
-        }
-        $new_path .= "\'";
+        $new_path = "\'" . join('/', @abs_path) . "\'";
     } elsif ( $#rel_path > 0 ) {
         # it's within the SM tree, prepend SM_PATH
         $new_path = $old_path;