Browse Source

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

Erin Schnabel 22 years ago
parent
commit
9ef652583a
1 changed files with 1 additions and 5 deletions
  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;