From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 27 May 2014 23:21:13 +0000 (+0200)
Subject: Use the correct $PROGRAM_NAME for the initial dbicadmin POD gneration
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8a270548277cf47dbe171d66e9f1352e5d1dc0e;p=dbsrgits%2FDBIx-Class-Historic.git

Use the correct $PROGRAM_NAME for the initial dbicadmin POD gneration
---

diff --git a/maint/Makefile.PL.inc/53_autogen_pod.pl b/maint/Makefile.PL.inc/53_autogen_pod.pl
index ec6c1a1..fb222ee 100644
--- a/maint/Makefile.PL.inc/53_autogen_pod.pl
+++ b/maint/Makefile.PL.inc/53_autogen_pod.pl
@@ -56,6 +56,7 @@ EOP
   my $great_success;
   {
     local @ARGV = ('--documentation-as-pod', $pod_fn);
+    local $0 = 'dbicadmin';
     local *CORE::GLOBAL::exit = sub { $great_success++; die; };
     do 'script/dbicadmin';
   }