22 lines
567 B
PHP
22 lines
567 B
PHP
<?php defined('SYSPATH') or die('No direct script access.');
|
|
/**
|
|
* UTF8::rtrim
|
|
*
|
|
* @package Kohana
|
|
* @author Kohana Team
|
|
* @copyright (c) 2007-2008 Kohana Team
|
|
* @copyright (c) 2005 Harry Fuecks
|
|
* @license http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt
|
|
*/
|
|
function _rtrim($str, $charlist = NULL)
|
|
{
|
|
if ($charlist === NULL)
|
|
return rtrim($str);
|
|
|
|
if (UTF8::is_ascii($charlist))
|
|
return rtrim($str, $charlist);
|
|
|
|
$charlist = preg_replace('#[-\[\]:\\\\^/]#', '\\\\$0', $charlist);
|
|
|
|
return preg_replace('/['.$charlist.']++$/uD', '', $str);
|
|
} |