Protect dbicadmin from self-injection when not in make
Peter Rabbitson [Wed, 24 Feb 2010 08:37:13 +0000 (08:37 +0000)]
script/dbicadmin

index ba511ef..1830cfa 100755 (executable)
@@ -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 (