Allow mapping into a hash entry

Changes

@@ -1,6 +1,7 @@
 Revision history for File-Map
 
 {{$NEXT}}
+          - Fix mapping into a hash element
           - Fix compilation warning by giving boot function a proper return type
           - Take into account sleep 0.1 may sleep a little less
 

lib/File/Map.xs

@@ -538,6 +538,7 @@ _mmap_impl(var, length, prot, flags, fd, offset, utf8 = 0)
 
 			magical = initialize_mmap_info(aTHX_ address, length, correction, flags);
 			reset_var(var, magical);
+			SvSETMAGIC(var);
 			add_magic(aTHX_ var, magical, &mmap_table, prot & PROT_WRITE, utf8);
 		}
 		else {
@@ -549,6 +550,7 @@ _mmap_impl(var, length, prot, flags, fd, offset, utf8 = 0)
 			sv_setpvn(var, "", 0);
 
 			magical = initialize_mmap_info(aTHX_ SvPV_nolen(var), 0, 0, flags);
+			SvSETMAGIC(var);
 			add_magic(aTHX_ var, magical, &empty_table, prot & PROT_WRITE, utf8);
 		}
 

t/10-basics.t

@@ -5,7 +5,7 @@ use warnings;
 use File::Map qw/:map lock_map advise/;
 use IO::Handle;
 use Scalar::Util qw/tainted/;
-use Test::More tests => 22;
+use Test::More tests => 24;
 use Test::Warnings;
 use Test::Fatal qw/lives_ok/;
 
@@ -35,6 +35,12 @@ close $self or die "Couldn't close self: $!";
 	lives_ok { unmap($mmaped) } "Unmapping";
 }
 
+{
+	my %hash;
+	lives_ok { map_file($hash{map}, $0) } 'mapping self into a hash';
+	is($hash{map}, $slurped, 'Correctly autovifivies hash entry');
+}
+
 open my $copy, "+<:raw", undef or die "Couldn't create tempfile: $!";
 $copy->autoflush(1);
 print $copy $slurped;

t/20-errors.t

@@ -5,7 +5,7 @@ use warnings;
 
 use File::Map qw/:map lock_map sync advise/;
 use IO::Socket::INET;
-use Test::More tests => 27;
+use Test::More tests => 26;
 use Test::Warnings 0.005 qw/warning warnings/;
 use Test::Fatal qw/exception lives_ok dies_ok/;
 BEGIN {
@@ -86,9 +86,6 @@ SKIP: {
 	like(exception { map_handle my ($map), $fh; }, qr/Can't map fake filehandle/, 'Mapping a scalar string handle throws an error');
 }
 
-my %hash;
-lives_ok { map_anonymous $hash{'foo'}, 4096 } 'mapping a hash element shouldn\'t croak';
-
 my $x;
 my $y = \$x;