diff options
-rw-r--r-- | Perl/Makefile.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/Makefile.PL b/Perl/Makefile.PL index 5db6713..dd27837 100644 --- a/Perl/Makefile.PL +++ b/Perl/Makefile.PL @@ -57,7 +57,7 @@ unless ($WIN) { #PERL_DL_NONLAZY set for tests. This is FALSE for TkZinc. if ($] >= 5.008000) { - $ExtUtils::MM_Unix::test_via_harness = sub { + *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... @@ -65,7 +65,7 @@ if ($] >= 5.008000) { }; #Again, the PERL_DL_NONLAZY thing. - $ExtUtils::MM_Unix::test_via_script = sub { + *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... |