From dfce1419addf536720b4236bc47dd9e08dd19418 Mon Sep 17 00:00:00 2001 From: Xavier Guimard Date: Fri, 19 Feb 2016 09:41:12 +0000 Subject: [PATCH] Good length for utf8 characters (may close #733) --- _example/test/index.pl | 7 ++++--- e2e-tests/form.html | 1 + lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main.pm | 3 ++- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/_example/test/index.pl b/_example/test/index.pl index 7fa8ae4e56..a75e282a50 100755 --- a/_example/test/index.pl +++ b/_example/test/index.pl @@ -42,9 +42,9 @@ foreach ( sort keys %ENV ) { print $cgi->header( -charset => 'utf-8' ); print "\n"; -print - "\n"; +print qq{\n}; print "\n"; +print qq{\n}; print "$name\n"; print "\n"; @@ -153,7 +153,8 @@ print "ParameterValue\n"; foreach ( sort $cgi->param() ) { my $tmp = $cgi->param($_); - print qq{$_☞ $tmp\n}; + print +qq{$_☞ $tmp\n}; } print "\n"; print "\n"; diff --git a/e2e-tests/form.html b/e2e-tests/form.html index 66e2214b0d..de30c18da4 100644 --- a/e2e-tests/form.html +++ b/e2e-tests/form.html @@ -1,5 +1,6 @@ + diff --git a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main.pm b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main.pm index 66c44a8775..397f1a745d 100755 --- a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main.pm +++ b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main.pm @@ -663,7 +663,8 @@ sub postJavascript { my $filler; foreach my $name ( keys %$data ) { - my $value = "x" x length( $data->{$name} ); + use bytes; + my $value = "x" x bytes::length( $data->{$name} ); $filler .= "form.find('input[name=$name], select[name=$name], textarea[name=$name]').val('$value')\n"; }