Disable need for DB::DB

Leont · Sep 21, 2012 · bf434b6 · bf434b6
1 parent b5ebc81
commit bf434b6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Devel/cst.pm b/lib/Devel/cst.pm
@@ -3,9 +3,11 @@ package Devel::cst;
 use strict;
 use warnings;
 use XSLoader;
+
+$^P = 0 if $^P == 0x73f && not defined &DB::DB && caller eq 'main';
 XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);
 
-sub DB::DB {}
+1;
 
 # ABSTRACT: C stacktraces for GNU systems