RT #78391: Avoid using $_ when requiring modules

diff --git a/Changes b/Changes
index 58ea1eb..787cfa9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - RT #78391: Avoid using $_ when requiring modules
+
 0.9.7 2012-07-12
   - Allow capturing of trace information into return value
   - Add repsoitory metadata to META.YML

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index 433cc0f..33a1f95 100644 (file)
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -133,7 +133,9 @@ sub script_command_packlists_for {
 sub packlists_containing {
   my ($self, $targets) = @_;
   my @targets = @$targets;
-  require $_ for @targets;
+  foreach my $t (@targets) {
+    require $t;
+  }
   my @search = grep -d $_, map catdir($_, 'auto'), @INC;
   my %pack_rev;
   my $cwd = cwd;