From: Matt S Trout Date: Thu, 16 Apr 2015 14:10:42 +0000 (+0000) Subject: exclude virtual %INC entries from trace output X-Git-Tag: v0.010003~4 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c96f6ee2785b5faaa2e12302ff4424d85f7d44f;p=p5sagit%2FApp-FatPacker.git exclude virtual %INC entries from trace output --- diff --git a/Changes b/Changes index fd79812..e5de864 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,7 @@ Revision history for App-FatPacker + - exclude virtual %INC entries from trace output + 0.010002 - 2014-08-16 - correctly specify perl prerequisite of 5.8 in meta files diff --git a/lib/App/FatPacker/Trace.pm b/lib/App/FatPacker/Trace.pm index d58800e..277cf84 100644 --- a/lib/App/FatPacker/Trace.pm +++ b/lib/App/FatPacker/Trace.pm @@ -30,6 +30,7 @@ CHECK { for my $inc (keys %INC) { next if exists $initial_inc{$inc}; + next unless $INC{$inc} =~ /\Q${inc}\E\Z/; print $trace "$inc\n"; } }