[Bast-commits] r8816 - DBIx-Class/0.08/trunk/script

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-02-24 08:37:13 +0000 (Wed, 24 Feb 2010)
New Revision: 8816

Modified:
   DBIx-Class/0.08/trunk/script/dbicadmin
Log:
Protect dbicadmin from self-injection when not in make

Modified: DBIx-Class/0.08/trunk/script/dbicadmin
===================================================================
--- DBIx-Class/0.08/trunk/script/dbicadmin	2010-02-24 08:32:53 UTC (rev 8815)
+++ DBIx-Class/0.08/trunk/script/dbicadmin	2010-02-24 08:37:13 UTC (rev 8816)
@@ -68,6 +68,10 @@
 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 (