add comment to explain use of main_start

[p5sagit/Devel-GlobalDestruction.git] / lib / Devel / GlobalDestruction.pm

diff --git a/lib/Devel/GlobalDestruction.pm b/lib/Devel/GlobalDestruction.pm
index e54d757..25b8958 100644 (file)
--- a/lib/Devel/GlobalDestruction.pm
+++ b/lib/Devel/GlobalDestruction.pm
@@ -26,6 +26,8 @@ elsif (eval {
   # the eval already installed everything, nothing to do
 }
 else {
+  # internally, PL_main_start is nulled immediately before entering global destruction
+  # and we can use B to detect that
   require B;
   eval 'sub in_global_destruction () { B::main_start()->isa(q[B::NULL]) }; 1'
     or die $@;