exclude virtual %INC entries from trace output

diff --git a/Changes b/Changes
index fd79812..e5de864 100644 (file)
--- 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 (file)
--- 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";
   }
 }