Pass separator along when tie'ing

Changes

@@ -2,6 +2,7 @@
 version: 0.84
 date:
 changes:
+- Pass separator along when tie'ing (Fixes GH#52, Arthur Axel 'fREW' Schmidt)
 - Add ->copy method (Arthur Axel 'fREW' Schmidt)
 - Prefix private methods with underscores (Arthur Axel 'fREW' Schmidt)
 ---

lib/IO/All/File.pm

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

test/autotie.t

@@ -7,13 +7,26 @@ use IO_All_Test;
 
 my $f = catfile($t, 'mystuff');
 my @lines = read_file_lines($f);
-plan(tests => 1 + @lines + 1);
+plan(tests => 1 + @lines + 1 + 7);
 
+{
 my $io = io($f)->tie;
 is($io->autoclose(0) . '', $f);
 while (<$io>) {
     is($_, shift @lines);
 }
 ok(close $io);
+}
+
+{
+my $f = catfile($t, 'mystuff2');
+my @lines = ('This ', 'is ', 'a ', 'silly ', "example\n");
+my $io = io($f)->separator(q( ))->tie;
+is($io->autoclose(0) . '', $f);
+while (<$io>) {
+    is($_, shift @lines, $_);
+}
+ok(close $io);
+}
 
 del_output_dir();