Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:55:40 -04:00
Code Issues Releases Wiki Activity

fixing u+?

Browse source
This commit is contained in:
Ryan Voots 2009-12-08 12:46:00 -05:00
parent fed6b273b6
commit 9a970886ee
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/unicode.pm
View file

@ -12,7 +12,7 @@ sub speng {
$x =~ /^0[0-7]+\z/ and return oct $x;
$x =~ /^(?:[Uu]\+|0[Xx])([[:xdigit:]]+)\z/ || (
$x =~ /^(?:[Uu]\+?|0[Xx])([[:xdigit:]]+)\z/ || (
length($x) > 1 && $x =~ /^([[:xdigit:]]*[A-Fa-f][[:xdigit:]]*)\z/
) and return hex $1;