initial commit of file from CVS for e-smith-lib on Wed 12 Jul 08:58:46 BST 2023

root/usr/share/perl5/vendor_perl/esmith/config/utf8.pm

@@ -0,0 +1,25 @@
+#----------------------------------------------------------------------
+# Copyright 1999-2008 Mitel Networks Corporation
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#----------------------------------------------------------------------
+
+package esmith::config::utf8;
+use warnings;
+use strict;
+
+use vars qw(@ISA);
+@ISA = qw(esmith::config);
+
+sub _read_binmode
+{
+    return ":encoding(UTF-8)";
+}
+
+sub _write_binmode
+{
+    return ":utf8";
+}
+
+1;
+