Fixed: Strings with code points over 0xFF may not be mapped into in-m…

…emory file handles

CHANGELOG

@@ -4,6 +4,9 @@
 Git 1.3.x
 ------------------------------------------------------------------------------------------------------------------------
 
+BACKEND
+    Fixed: Strings with code points over 0xFF may not be mapped into in-memory file handles
+
 ------------------------------------------------------------------------------------------------------------------------
 1.3.12
 ------------------------------------------------------------------------------------------------------------------------

engine/PerlLib/Servers/mta/postfix.pm

@@ -786,7 +786,7 @@ sub postconf
             [ 'postconf', '-c', $self->{'config'}->{'POSTFIX_CONF_DIR'}, keys %params ],
             sub {
                 my $buffer = shift;
-                open my $stdout, '<:utf8', \$buffer or die( sprintf( 'Could not open: %s', $! ) );
+                open my $stdout, '<', \$buffer or die( sprintf( 'Could not open in-memory file: %s', $! ) );
                 while(<$stdout>) {
                     /^([^=]+)\s+=\s+(.*)/;
                     next unless defined $1 && defined $2;

engine/PerlLib/iMSCP/Bootstrapper.pm

@@ -31,7 +31,7 @@ use iMSCP::EventManager;
 use iMSCP::Getopt;
 use IO::Handle;
 use locale;
-use open qw/ :std :utf8 /;
+use open OUT => ':utf8';
 use POSIX qw / tzset locale_h /;
 use parent 'Common::SingletonClass';
 

engine/PerlLib/iMSCP/Dialog.pm

@@ -29,7 +29,7 @@ use iMSCP::Debug;
 use iMSCP::Execute;
 use iMSCP::Getopt;
 use iMSCP::ProgramFinder;
-use open qw/ :std :utf8 /;
+use open OUT => ':utf8';
 use parent 'Common::SingletonClass';
 
 =head1 DESCRIPTION

engine/PerlLib/iMSCP/Execute.pm

@@ -37,7 +37,6 @@ my $vendorLibDir;
 BEGIN { $vendorLibDir = realpath( dirname( __FILE__ ).'/../../PerlVendor' ); }
 use lib $vendorLibDir;
 use Capture::Tiny ':all';
-use open qw/ :std :utf8 /;
 use parent 'Exporter';
 
 our @EXPORT = qw/ execute executeNoWait escapeShell getExitCode /;

engine/PerlLib/iMSCP/File.pm

@@ -28,7 +28,7 @@ use warnings;
 use iMSCP::Debug;
 use File::Copy;
 use File::Basename;
-use open qw/ :std :utf8 /;
+use open OUT => ':utf8';
 use parent 'Common::Object';
 
 =head1 DESCRIPTION

engine/PerlLib/iMSCP/Mount.pm

@@ -30,7 +30,6 @@ use File::Spec;
 use File::stat ();
 use iMSCP::Debug;
 use iMSCP::Syscall;
-use open qw/ :std :utf8 /;
 use Scalar::Defer;
 use Quota;
 use parent 'Exporter';