[Upcase-project-cvs] UpCase/lib Tar.php,1.1,1.2

[<jhe...@us...>]

Update of /cvsroot/upcase-project/UpCase/lib
In directory sc8-pr-cvs1:/tmp/cvs-serv30521

Modified Files:
	Tar.php 
Log Message:
little bug correction in extractList method


Index: Tar.php
===================================================================
RCS file: /cvsroot/upcase-project/UpCase/lib/Tar.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tar.php	8 Aug 2002 13:53:37 -0000	1.1
--- Tar.php	4 Dec 2002 09:05:24 -0000	1.2
***************
*** 2,8 ****
  /* vim: set ts=4 sw=4: */
  // +----------------------------------------------------------------------+
! // | PHP version 4.0                                                      |
  // +----------------------------------------------------------------------+
! // | Copyright (c) 1997-2001 The PHP Group                                |
  // +----------------------------------------------------------------------+
  // | This source file is subject to version 2.02 of the PHP license,      |
--- 2,8 ----
  /* vim: set ts=4 sw=4: */
  // +----------------------------------------------------------------------+
[...1283 lines suppressed...]
+ 
+     // {{{ _translateWinPath()
+     function _translateWinPath($p_path, $p_remove_disk_letter=true)
+     {
+       if (OS_WINDOWS) {
+           // ----- Look for potential disk letter
+           if (($p_remove_disk_letter) && (($v_position = strpos($p_path, ':')) != false)) {
+               $p_path = substr($p_path, $v_position+1);
+           }
+           // ----- Change potential windows directory separator
+           if ((strpos($p_path, '\\') > 0) || (substr($p_path, 0,1) == '\\')) {
+               $p_path = strtr($p_path, '\\', '/');
+           }
+       }
+       return $p_path;
+     }
      // }}}
  
  }
! ?>