From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 21 Jul 2011 17:01:08 +0000 (-0500)
Subject: Module::Install called these as methods (ribasushi)
X-Git-Tag: 0.30~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d7023f9624566405cf955a5931fc4692cb8bc9d;p=gitmo%2FPackage-Stash.git

Module::Install called these as methods (ribasushi)
---

diff --git a/inc/MMPackageStash.pm b/inc/MMPackageStash.pm
index de68a03..d471114 100644
--- a/inc/MMPackageStash.pm
+++ b/inc/MMPackageStash.pm
@@ -22,7 +22,7 @@ sub can_run {
 
         for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
                 next if $dir eq '';
-                my $abs = File::Spec->catfile($dir, $_[1]);
+                my $abs = File::Spec->catfile($dir, $_[0]);
                 return $abs if (-x $abs or $abs = MM->maybe_command($abs));
         }