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 269ed5f650c4ec55e69f1fba432b32578abd7358..c71fec2a97c0c3b7c843aedb3f545115fb231b84 100755 (executable)
--- a/config/conf.pl
+++ b/config/conf.pl
@@ -3023,11 +3023,7 @@ sub change_to_SM_path() {
                 push @abs_path, $subdir;
             }
         }
                 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;
     } elsif ( $#rel_path > 0 ) {
         # it's within the SM tree, prepend SM_PATH
         $new_path = $old_path;