Changeset 31812 for main/trunk/greenstone2/perllib
- Timestamp:
- 2017-07-20T16:16:44+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cpan/URI/Escape.pm
r31781 r31812 204 204 # https://rt.cpan.org/Public/Bug/Display.html?id=105109 205 205 # https://github.com/libwww-perl/uri/commit/7e03cdd3e5d25df5556a36dbfcd5d6cbcd676afb 206 # escape_char is buggy as it assigns meaning to the string's storage format.206 # XXX FIXME escape_char is buggy as it assigns meaning to the string's storage format. 207 207 sub escape_char { 208 208 209 209 # to fix new "\C is deprecated in regex" warning in 5.21.2 (RT#96941) 210 210 #return join '', @URI::Escape::escapes{$_[0] =~ /(\C)/g}; 211 212 # Old versions of utf8::is_utf8() didn't properly handle magical vars (e.g. $1). 213 # The following forces a fetch to occur beforehand. 214 my $dummy = substr($_[0], 0, 0); 215 211 216 if (utf8::is_utf8($_[0])) { 212 my $s = $_[0];217 my $s = shift; 213 218 utf8::encode($s); 214 219 unshift(@_, $s); 215 220 } 216 217 return join '', @URI::Escape::escapes{ $_[0] =~ /(.)/sg};221 222 return join '', @URI::Escape::escapes{split //, $_[0]}; 218 223 } 219 224
Note:
See TracChangeset
for help on using the changeset viewer.