Skip to content
Browse files

Get rid of $perl variable

  • Loading branch information...
1 parent a7f4071 commit cb8b95a3415310e096bb7ae1a252c1224ed64ea7 @Leont committed Nov 7, 2013
Showing with 3 additions and 4 deletions.
  1. +3 −4 lib/Devel/FindPerl.pm
View
7 lib/Devel/FindPerl.pm
@@ -24,14 +24,13 @@ sub find_perl_interpreter {
sub _discover_perl_interpreter {
my $config = shift;
- my $perl = $^X;
- return VMS::Filespec::vmsify($perl) if $^O eq 'VMS';
- my $perl_basename = basename($perl);
+ return VMS::Filespec::vmsify($^X) if $^O eq 'VMS';
+ my $perl_basename = basename($^X);
my @potential_perls;
# Try 1, Check $^X for absolute path
- push @potential_perls, file_name_is_absolute($perl) ? $perl : rel2abs($perl) unless tainted($perl);
+ push @potential_perls, file_name_is_absolute($^X) ? $^X : rel2abs($^X) unless tainted($^X);
# Try 2, Last ditch effort: These two option use hackery to try to locate
# a suitable perl. The hack varies depending on whether we are running

0 comments on commit cb8b95a

Please sign in to comment.
Something went wrong with that request. Please try again.