more encoding

2025-10-15 12:12:37 +02:00
parent af0fc03b2b
commit b26a16b17e
1 changed files with 2 additions and 1 deletions
--- a/fsfe.org/cgi-bin/weborder.pl
+++ b/fsfe.org/cgi-bin/weborder.pl
@@ -33,6 +33,8 @@ use JSON;
 use strict;
 use warnings;
 use diagnostics;
+use open qw(:encoding(UTF-8));
+binmode(STDOUT, ":utf8");

 # -----------------------------------------------------------------------------
 # Get parameters
@@ -417,7 +419,6 @@ my $form =
 # -----------------------------------------------------------------------------
 # Lead user to "thankyou" page
 # -----------------------------------------------------------------------------
-binmode(STDOUT, ":utf8");

 print "Content-type: text/html\n\n";
 open TEMPLATE,