diff options
| author | mertz | 2005-05-18 16:04:12 +0000 |
|---|---|---|
| committer | mertz | 2005-05-18 16:04:12 +0000 |
| commit | 57d00cb98f4308e7d5d69cb5127005b655ab2ad5 (patch) | |
| tree | bebef01ba0c6e45a8255c537a64e97e60a4df4d7 | |
| parent | 370a6b39880bb79d0ec7ed3b4e7a775c01b90a5c (diff) | |
| download | tkzinc-57d00cb98f4308e7d5d69cb5127005b655ab2ad5.zip tkzinc-57d00cb98f4308e7d5d69cb5127005b655ab2ad5.tar.gz tkzinc-57d00cb98f4308e7d5d69cb5127005b655ab2ad5.tar.bz2 tkzinc-57d00cb98f4308e7d5d69cb5127005b655ab2ad5.tar.xz | |
- to allow make test works correctly when another perl-tk is
not installed in the system. Works only for perl 5.8 and
hopefully above...
| -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... |