Protect dbicadmin from self-injection when not in make

[dbsrgits/DBIx-Class.git] / script / dbicadmin

diff --git a/script/dbicadmin b/script/dbicadmin
index ba511ef..1830cfa 100755 (executable)
--- 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 (