X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fdbicadmin;h=1830cfa48218399735a2156963cbdd2ef95cec77;hb=fecb38cba68186d579ef96f89bf6ce557e55ab1c;hp=ba511ef42ff27dfc827dcd4e7fac3625d970c06c;hpb=82b0855476d6556d5d3a0ae6ae8c975be077c855;p=dbsrgits%2FDBIx-Class.git

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 (