From 1df7607608d60462c75a8c9fefe158fe9ac388e1 Mon Sep 17 00:00:00 2001
From: ebullient <ebullient@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Mon, 3 Feb 2003 22:31:13 +0000
Subject: [PATCH] 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
---
 config/conf.pl | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

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;
-- 
2.25.1