add NAME WriteMakefile arg for non-dzil testing

diff --git a/.gitignore b/.gitignore
index 34d1c2b58954148d29669954ec21df95bbdafc94..3aa630d3572da10f1d55538b0aa9050143da5af1 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -9,9 +9,12 @@
 /.perl-version
 /File-KDBX-*
 /MYMETA.*
 /.perl-version
 /File-KDBX-*
 /MYMETA.*

+/Makefile
+/XS.c

 /blib
 /cover_db
 /fatlib
 /blib
 /cover_db
 /fatlib

+/libtomcrypt/libonlyaes.a

 /local*
 /pm_to_blib
 /src.saved
 /local*
 /pm_to_blib
 /src.saved

diff --git a/Makefile.PL b/Makefile.PL
index 4e627012a3e34d2dc31001ba8aaaa3cf8d154f57..05b01e69c339d3c8183d394c7ea58f378047b780 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,5 +1,8 @@
 #!/usr/bin/env perl
 
 #!/usr/bin/env perl
 

+# A lot of this is cargo-culted from CryptX which has already gone through a lot of working around platform
+# incompatibilities which we're grateful to take advantage of here -- thanks cpan:MIK!
+

 use warnings;
 use strict;
 
 use warnings;
 use strict;
 


@@ -64,7 +67,8 @@ if ($^O !~ /^(MSWin32|darwin|solaris)$/ && ($Config{ld} =~ /gcc|g\+\+/ || $Confi
 }
 
 my %eumm_args = (
 }
 
 my %eumm_args = (

-##{ $plugin->get_default(qw{ABSTRACT AUTHOR DISTNAME LICENSE MIN_PERL_VERSION NAME VERSION test}) ##}
+  'NAME' => 'File::KDBX::XS',##{  # List NAME explicitly here so it works even without dzil. ##}
+##{ $plugin->get_default(qw{ABSTRACT AUTHOR DISTNAME LICENSE MIN_PERL_VERSION VERSION test}) ##}

 ##{ $plugin->get_prereqs(1) ##}
     @EUMM_INC_LIB,
 );
 ##{ $plugin->get_prereqs(1) ##}
     @EUMM_INC_LIB,
 );

diff --git a/t/kdf-aes.t b/t/kdf-aes.t
index 7a968a4bc720dfed811f21426a4c0459e1bcd813..94ddf820cac6f7fcfd6c8098e8060306989dd72c 100644 (file)
--- a/t/kdf-aes.t
+++ b/t/kdf-aes.t
@@ -3,10 +3,9 @@
 use warnings;
 use strict;
 
 use warnings;
 use strict;
 

+use File::KDBX::XS;

 use Test::More;
 
 use Test::More;
 

-BEGIN { use_ok('File::KDBX::XS') }
-

 my $key         = "\1" x 32;
 my $seed        = "\1" x 16;
 my $rounds      = 123;
 my $key         = "\1" x 32;
 my $seed        = "\1" x 16;
 my $rounds      = 123;