don't fail tracing w/undef INC values due to failed optional module load

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

diff --git a/lib/App/FatPacker/Trace.pm b/lib/App/FatPacker/Trace.pm
index 277cf84..39c13a8 100644 (file)
--- a/lib/App/FatPacker/Trace.pm
+++ b/lib/App/FatPacker/Trace.pm
@@ -30,7 +30,7 @@ CHECK {
 
   for my $inc (keys %INC) {
     next if exists $initial_inc{$inc};
-    next unless $INC{$inc} =~ /\Q${inc}\E\Z/;
+    next unless defined($INC{$inc}) and $INC{$inc} =~ /\Q${inc}\E\Z/;
     print $trace "$inc\n";
   }
 }