diff options
| author | Maxim Dounin <mdounin@mdounin.ru> | 2016-08-24 15:53:17 +0300 |
|---|---|---|
| committer | Maxim Dounin <mdounin@mdounin.ru> | 2016-08-24 15:53:17 +0300 |
| commit | 0b97b1ec6f1e6005e02c445c7716a1409052ff52 (patch) | |
| tree | af80a5475a0f05a325ee67aeb7d0e1f277e1e34d /contrib | |
| parent | 9208875db1d47d7bdc7b7b6583ea3b3b04b33a01 (diff) | |
| download | nginx-0b97b1ec6f1e6005e02c445c7716a1409052ff52.tar.gz nginx-0b97b1ec6f1e6005e02c445c7716a1409052ff52.tar.bz2 | |
Contrib: unicode2nginx compatibility with recent Perl versions.
In recent Perl versions unpack("C*") unpacks wide characters by default,
likely since perl 5.10 (seen at least in perl 5.20). Replaced with
unpack("U0C*") instead to unpack bytes.
While here, improved style and updated my email.
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/unicode2nginx/unicode-to-nginx.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/contrib/unicode2nginx/unicode-to-nginx.pl b/contrib/unicode2nginx/unicode-to-nginx.pl index daaf354a8..d113fede4 100755 --- a/contrib/unicode2nginx/unicode-to-nginx.pl +++ b/contrib/unicode2nginx/unicode-to-nginx.pl @@ -10,7 +10,7 @@ # Needs perl 5.6 or later. -# Written by Maxim Dounin, mdounin@rambler-co.ru +# Written by Maxim Dounin, mdounin@mdounin.ru ############################################################################### @@ -33,7 +33,10 @@ while (<>) { # Produce UTF-8 sequence from character code; - my $un_utf8 = join('', map { sprintf("%02X", $_) } unpack("C*", pack("U", hex($un_code)))); + my $un_utf8 = join('', + map { sprintf("%02X", $_) } + unpack("U0C*", pack("U", hex($un_code))) + ); print " $cs_code $un_utf8 ; $un_name\n"; |