From: David Leadbeater <dgl@dgl.cx>
Date: Mon, 16 Jul 2012 07:08:08 +0000 (+0100)
Subject: RT #78391: Avoid using $_ when requiring modules
X-Git-Tag: v0.9.8~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a976705b258644247534f58f1dba0318f62bbdbc;p=p5sagit%2FApp-FatPacker.git

RT #78391: Avoid using $_ when requiring modules
---

diff --git a/Changes b/Changes
index 58ea1eb..787cfa9 100644
--- 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
--- 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;