Fix a showstopper in Mapefile.PL related to test handling

1 files changed, 5 insertions, 3 deletions

diff --git a/Perl/Makefile.PL b/Perl/Makefile.PL
index ebcd5ec..5db6713 100644
--- a/Perl/Makefile.PL
+++ b/Perl/Makefile.PL
@@ -56,19 +56,21 @@ unless ($WIN) {
 #For some reason which the author of ExtUtils::MM_Unix forget, Unix machines like to have
 #PERL_DL_NONLAZY set for tests. This is FALSE for TkZinc.
 
-sub ExtUtils::MM_Unix::test_via_harness {
+if ($] >= 5.008000) {
+  $ExtUtils::MM_Unix::test_via_harness = sub {
     my($self, $perl, $tests) = @_;
 #    return $self->SUPER::test_via_harness("PERL_DL_NONLAZY=1 $perl", $tests);
     # I should use the SUPER method, but this needs some import tunning...
     return ExtUtils::MM_Any::test_via_harness($self, $perl, $tests);
-}
+  };
 
 #Again, the PERL_DL_NONLAZY thing.
-sub ExtUtils::MM_Unix::test_via_script {
+  $ExtUtils::MM_Unix::test_via_script = sub {
     my($self, $perl, $script) = @_;
 #    return $self->SUPER::test_via_script("PERL_DL_NONLAZY=1 $perl", $script);
     # I should use the SUPER method, but this needs some import tunning...
     return ExtUtils::MM_Any::test_via_script($self, $perl, $script);
+  };
 }
 
 # See lib/ExtUtils/MakeMaker.pm for details of how to influence