From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 24 Feb 2010 08:37:13 +0000 (+0000)
Subject: Protect dbicadmin from self-injection when not in make
X-Git-Tag: v0.08120~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2a769ba6f7310d0db87b7090238f0662be02f9d;p=dbsrgits%2FDBIx-Class.git

Protect dbicadmin from self-injection when not in make
---

diff --git a/script/dbicadmin b/script/dbicadmin
index ba511ef..1830cfa 100755
--- a/script/dbicadmin
+++ b/script/dbicadmin
@@ -68,6 +68,10 @@ my ($opts, $usage) = describe_options(
 die "please only use one of --config or --connect-info\n" if ($opts->{config} and $opts->{connect_info});
 
 if($opts->{selfinject_pod}) {
+
+    die "This is an internal method, do not call!!!\n"
+      unless $ENV{MAKELEVEL};
+
     $usage->synopsis($synopsis_text);
     $usage->short_description($short_description);
     exec (