From 7d7023f9624566405cf955a5931fc4692cb8bc9d Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 21 Jul 2011 12:01:08 -0500
Subject: Module::Install called these as methods (ribasushi)

---
 inc/MMPackageStash.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'inc')

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));
         }
 
-- 
cgit v1.2.3-54-g00ecf