Permalink
Browse files

Return the correct thing on VMS

  • Loading branch information...
1 parent bfcb667 commit bc09bd7684f59c8a2d7fc3ea664a7f70336ffa49 @Leont committed Jun 19, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 lib/Devel/FindPerl.pm
View
@@ -14,6 +14,7 @@ sub find_perl_interpreter {
my $config = shift || ExtUtils::Config->new;
my $perl = $^X;
+ return VMS::Filespec::vmsify($perl) if $^O eq 'VMS';
my $perl_basename = File::Basename::basename($perl);
my @potential_perls;

0 comments on commit bc09bd7

Please sign in to comment.