Silence compile-time or run-time warnings.

"Wide character" / utf-8.

See:

* https://duckduckgo.com/?q=warnings+programming&atb=v140-1&ia=web

They are a distraction at best and may indicate other issues.

diff --git a/fortune-mod/fortune/gen-fortune-docbook-page.pl b/fortune-mod/fortune/gen-fortune-docbook-page.pl
index 6ab78c515c2e1f4bb6c97b3bf29f61d265300cc8..41a4c661d42d5ab8b888af0d9ee032533b0491b4 100644 (file)
--- a/fortune-mod/fortune/gen-fortune-docbook-page.pl
+++ b/fortune-mod/fortune/gen-fortune-docbook-page.pl
@@ -44,7 +44,7 @@ if ( $dirname and ( !-e $dirname ) )
 }
 
 # The :raw is to prevent CRs on Win32/etc.
-open my $out, '>:encoding(utf-8):raw', $output_fn;
+open my $out, '>:raw:encoding(utf-8)', $output_fn;
 
 $out->print(<<'END_OF_STRING');
 <?xml version="1.0" encoding="UTF-8"?>