Use old version of s// operator (#43)

hakonhagland · Aug 3, 2024 · eeadf2e · eeadf2e
1 parent 48c7044
commit eeadf2e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Build.PL b/Build.PL
@@ -340,7 +340,8 @@ sub check_alien_gsl_share_dir {
                 my $libs = Math::GSL::Alien->libs;
                 my $lib_dir = $libs =~ m{-L(\S+)} ? $1 : '';
                 if ($lib_dir) {
-                    my $bin_dir = $lib_dir =~ s{/lib}{/bin}r;
+                    # For compatibility with perl < 5.14 we can't use s{/lib}{/bin}r
+                    (my $bin_dir = $lib_dir) =~ s{/lib}{/bin};
                     if (-d $bin_dir) {
                         $ENV{PATH} .= ":$bin_dir";
                     }