diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-07-21 12:01:08 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-07-21 12:01:08 -0500 |
commit | 7d7023f9624566405cf955a5931fc4692cb8bc9d (patch) | |
tree | a50af57759b383025e611ce2057e80473aa68589 | |
parent | 774f4f10836a4e4fa82468d11d0e59730c431399 (diff) | |
download | package-stash-7d7023f9624566405cf955a5931fc4692cb8bc9d.tar.gz package-stash-7d7023f9624566405cf955a5931fc4692cb8bc9d.zip |
Module::Install called these as methods (ribasushi)
-rw-r--r-- | inc/MMPackageStash.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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)); } |