From: Matt S Trout <mst@shadowcat.co.uk>
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";
   }
 }