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;
+ }
// }}}
}
! ?>
|
