From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Tue, 2 Oct 2012 21:40:01 +0000 (+0100)
Subject: Fix sizeme_store.pl pod typo. Make -d:SizeMe be special only if it's first module.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e988a69504a8e7bc06353f637fea0279731da82b;p=p5sagit%2FDevel-Size.git

Fix sizeme_store.pl pod typo. Make -d:SizeMe be special only if it's first module.
---

diff --git a/bin/sizeme_store.pl b/bin/sizeme_store.pl
index f6701d0..59fc49e 100755
--- a/bin/sizeme_store.pl
+++ b/bin/sizeme_store.pl
@@ -30,7 +30,7 @@ The --db output is a SQLite database. The db schema is very subject to change.
 This output is destined to be the primary one. The other output types will
 probably become separate programs that read the db.
 
-=pod
+=cut
 
 # Needs to be generalized to support pluggable output formats.
 # Actually it needs to be split so sizeme_store.pl only does the store
diff --git a/lib/Devel/SizeMe.pm b/lib/Devel/SizeMe.pm
index 89a273e..794a228 100644
--- a/lib/Devel/SizeMe.pm
+++ b/lib/Devel/SizeMe.pm
@@ -4,9 +4,8 @@ package Devel::SizeMe;
 # in an END block, and also set some $^P flags to get more detail.
 my $do_size_at_end; # set true below for "perl -d:SizeMe ..."
 BEGIN {
-    if ($^P) {
+    if ($^P and keys %INC == 1) {
         warn "Note: Devel::SizeMe currently disables perl debugger mode\n";
-    warn scalar keys %INC;
         # default $^P set by "perl -d" is 0x73f
         $^P = 0x10  # Keep info about source lines on which a sub is defined
             | 0x100 # Provide informative "file" names for evals