adjust Makefile.pl to generate dbicadmin.pod

[dbsrgits/DBIx-Class.git] / Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index 0653a8a..4509190 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -67,7 +67,7 @@ if ($Module::Install::AUTHOR) {
 
   print "Regenerating README\n";
   system('pod2text lib/DBIx/Class.pm > README');
-
+  system('perl -Ilib ./script/dbicadmin --pod > lib/dbicadmin.pod');
   if (-f 'MANIFEST') {
     print "Removing MANIFEST\n";
     unlink 'MANIFEST';
@@ -105,7 +105,7 @@ for my $rtype (keys %$reqs) {
 
     # sanity check req duplications
     if ($final_req{$mod}) {
-      die "$mod specified as both a $rtype and a $final_req{$mod}[1]\n";
+      die "$mod specified as both a '$rtype' and a '$final_req{$mod}[0]'\n";
     }
 
     $final_req{$mod} = [ $rtype, $reqs->{$rtype}{$mod}||0 ],