fixes ingydotnet/io-all-pm#93: -utf8 not applied everywhere.

lib/IO/All/File.pm

@@ -66,8 +66,10 @@ sub assert_tied_file {
           if $@;
         my $array_ref = do { my @array; \@array };
         my $name = $self->pathname;
-        my @options = $self->_rdonly ? (mode => O_RDONLY) : ();
+        my @options;
         push @options, (recsep => $self->separator);
+        push @options, (mode => O_RDONLY)  if $self->_rdonly;
+        push @options, (discipline => join('', grep {defined} @{$self->_layers}));
         tie @$array_ref, 'Tie::File', $name, @options;
         $self->throw("Can't tie 'Tie::File' to '$name':\n$!")
           unless tied @$array_ref;

test/tie_file.t

@@ -3,21 +3,34 @@ my $t; use lib ($t = -e 't' ? 't' : 'test');
 use Test::More;
 use IO_All_Test;
 use IO::All;
+use open qw(:std :utf8);
+use utf8;
 
 plan((eval {require Tie::File; 1})
-    ? (tests => 2)
+    ? (tests => 4)
     : (skip_all => "requires Tie::File")
 );
 
-{
-(io(o_dir() . '/tie_file1') < io("$t/tie_file.t"))->close;
+(io(o_dir() . '/tie_file1') < io($0))->close;
 my $file = io(o_dir() . '/tie_file1')->rdonly;
 is($file->[-1], 'bar');
 is($file->[-2], 'foo');
 
 "foo\n" x 3 > io(o_dir() . '/tie_file2');
-io(o_dir() . '/tie_file2')->[1] = 'bar';
-}
+$file = io(o_dir() . '/tie_file2');
+$file->[1] = 'bar';
+
+$file = io(o_dir() . '/tie_file2')->utf8;
+push @{$file}, 'åäöüß';
+
+is ($file->size, 23, "file size with UTF-8 chars");
+
+is ($file->all, <<EOT, "UTF-8 content");
+foo
+bar
+foo
+åäöüß
+EOT
 
 del_output_dir();