Good length for utf8 characters (may close #733)

10 years ago · dfce1419ad
parent 122dfad051
commit dfce1419ad
3 changed files with 7 additions and 4 deletions
--- 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 "<!DOCTYPE html>\n";
-print
-  "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">\n";
+print qq{<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">\n};
 print "<head>\n";
+print qq{<meta charset="utf-8">\n};
 print "<title>$name</title>\n";
 print
  "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />\n";
@ -153,7 +153,8 @@ print "<thead><tr><th>Parameter</th><th>Value</th></tr></thead><tbody>\n";

 foreach ( sort $cgi->param() ) {
    my $tmp = $cgi->param($_);
-    print qq{<tr><td>$_</td><td><big>☞</big> <span id="field_$_">$tmp</span></td></tr>\n};
+    print
+qq{<tr><td>$_</td><td><big>☞</big> <span id="field_$_">$tmp</span></td></tr>\n};
 }
 print "</tbody></table>\n";
 print "</div>\n";
--- a/e2e-tests/form.html
+++ b/e2e-tests/form.html
@ -1,5 +1,6 @@
 <html>
 <head>
+<meta charset="utf-8">
 <title></title>
 </head>
 <body>
--- 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";
    }