From: ebullient <ebullient@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Mon, 3 Feb 2003 22:31:13 +0000 (+0000)
Subject: use Perl's function for this. Don't know what I was thinking.
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=1df7607608d60462c75a8c9fefe158fe9ac388e1;p=squirrelmail.git

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


git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@4495 7612ce4b-ef26-0410-bec9-ea0150e637f0
---

diff --git a/config/conf.pl b/config/conf.pl
index 269ed5f6..c71fec2a 100755
--- a/config/conf.pl
+++ b/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;