We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 6117ce5 commit 327af01Copy full SHA for 327af01
lib/Perl/Dist/Strawberry/Step/InstallPerlCore.pm
@@ -52,8 +52,12 @@ sub run {
52
}
53
die "ERROR: cannot detect perl-src dir" unless $perlsrc;
54
55
- #get verion string - e.g. '5.15.9'
56
- my ($version) = grep { /INST_VER/ } read_file(catfile($unpack_to, $perlsrc, qw/win32 makefile.mk/));
+ #get version string - e.g. '5.15.9'
+ my $file_to_check = catfile($unpack_to, $perlsrc, qw/win32 makefile.mk/);
57
+ if (!-e $file_to_check) {
58
+ $file_to_check = catfile($unpack_to, $perlsrc, qw/win32 GNUMakefile/);
59
+ }
60
+ my ($version) = grep { /INST_VER/ } read_file($file_to_check);
61
$version =~ s/^.*?(5\..*?)[\r\n]*$/$1/;
62
63
# some handy variables
0 commit comments