X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FFatPacker%2FTrace.pm;h=28cde3aeb1d840a4f5c20328f61e18cce6e7ce1f;hb=3fdf85cab9fd27ad5e7d5141e197b9832d6b9394;hp=1da59431cc2e9555d341271e701a18ba750f318b;hpb=ac04cb12844d59c4ea810a2413c0f657fb71299e;p=p5sagit%2FApp-FatPacker.git

diff --git a/lib/App/FatPacker/Trace.pm b/lib/App/FatPacker/Trace.pm
index 1da5943..28cde3a 100644
--- a/lib/App/FatPacker/Trace.pm
+++ b/lib/App/FatPacker/Trace.pm
@@ -8,11 +8,17 @@ my $trace_file;
 my %initial_inc;
 
 sub import {
-  $trace_file = $_[1] || '>>fatpacker.trace';
+  my(undef, $file, @extras) = @_;
+
+  $trace_file = $file || '>>fatpacker.trace';
   # For filtering out our own deps later.
   # (Not strictly required as these are core only and won't have packlists, but 
   # looks neater.)
   %initial_inc = %INC;
+
+  # Use any extra modules specified
+  eval "use $_" for @extras;
+
   B::minus_c;
 }