From 4cfb3c9ce137801400de804138bffbc8d79c47d0 Mon Sep 17 00:00:00 2001
From: Thomas Cresson <thomas.cresson2@gmail.com>
Date: Tue, 9 Jul 2013 12:17:56 +0200
Subject: [PATCH] Fix #217 + Creating archives with a samba workspace now works
 (exploration and extraction still impossible).

---
 core/src/core/classes/pclzip.lib.php | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/src/core/classes/pclzip.lib.php b/core/src/core/classes/pclzip.lib.php
index 9766315b1f..bfbda2bd49 100644
--- a/core/src/core/classes/pclzip.lib.php
+++ b/core/src/core/classes/pclzip.lib.php
@@ -5396,7 +5396,7 @@ function privSwapBackMagicQuotes()
   function PclZipUtilPathReduction($p_dir)
   {
     $v_result = "";
-//    $scheme = parse_url($p_dir, PHP_URL_SCHEME) != NULL;
+    $scheme = parse_url($p_dir, PHP_URL_SCHEME) != null;
 
     // ----- Look for not empty path
     if ($p_dir != "") {
@@ -5441,7 +5441,7 @@ function PclZipUtilPathReduction($p_dir)
 		    $v_skip--;
 		  }
 		  else {
-             $v_result = $v_list[$i].($i!=(sizeof($v_list)-1)? "/".$v_result : "");
+             $v_result = $v_list[$i].(( $i == 0 && $scheme)? "/" : "").($i!=(sizeof($v_list)-1)? "/".$v_result : "");
 		  }
         }
       }