From: Matt S Trout Date: Thu, 16 Apr 2015 14:10:42 +0000 (+0000) Subject: exclude virtual %INC entries from trace output X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FApp-FatPacker.git;a=commitdiff_plain;h=d2497ab58c429e33d41c1354b0c61b55f8e83d96 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"; } }