From d3fb3870511e8f241a4ebd2d9ac293334845693a Mon Sep 17 00:00:00 2001
From: ebullient <ebullient@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Sun, 2 Feb 2003 17:47:16 +0000
Subject: [PATCH] Better way to fix conversion stuff for windows paths..

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@4494 7612ce4b-ef26-0410-bec9-ea0150e637f0
---
 config/conf.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/config/conf.pl b/config/conf.pl
index dd576216..269ed5f6 100755
--- a/config/conf.pl
+++ b/config/conf.pl
@@ -40,9 +40,6 @@ if ( defined( $ENV{'PATH_INFO'} )
 ############################################################
 use Cwd;
 $dir = cwd();
-if ( $dir =~ /:/ ) {
-  $dir = substr($dir, index($dir, ':') + 1);
-}
   
 
 ############################################################              
@@ -3001,7 +2998,9 @@ sub change_to_SM_path() {
     # If the path is absolute, don't bother.
     return "\'" . $old_path . "\'"  if ( $old_path eq '');
     return "\'" . $old_path . "\'"  if ( $old_path =~ /^(\/|http)/ );
+    return "\'" . $old_path . "\'"  if ( $old_path =~ /^\w:\// );
     return $old_path                if ( $old_path =~ /^\'(\/|http)/ );
+    return $old_path                if ( $old_path =~ /^\'\w:\// );
     return $old_path                if ( $old_path =~ /^(\$|SM_PATH)/);
     
     # Remove remaining '
-- 
2.25.1