exclude virtual %INC entries from trace output

[p5sagit/App-FatPacker.git] / lib / App / FatPacker / Trace.pm

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";
   }
 }