diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Test/lib/Test.pm')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Test/lib/Test.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/cpan/Test/lib/Test.pm b/gnu/usr.bin/perl/cpan/Test/lib/Test.pm index 108bc10a167..973f8dd8258 100644 --- a/gnu/usr.bin/perl/cpan/Test/lib/Test.pm +++ b/gnu/usr.bin/perl/cpan/Test/lib/Test.pm @@ -20,7 +20,7 @@ sub _reset_globals { $planned = 0; } -$VERSION = '1.26'; +$VERSION = '1.26_01'; require Exporter; @ISA=('Exporter'); @@ -480,7 +480,12 @@ sub _diff_complain { my($result, $expected, $detail, $prefix) = @_; return _diff_complain_external(@_) if $ENV{PERL_TEST_DIFF}; return _diff_complain_algdiff(@_) - if eval { require Algorithm::Diff; Algorithm::Diff->VERSION(1.15); 1; }; + if eval { + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; + require Algorithm::Diff; Algorithm::Diff->VERSION(1.15); + 1; + }; $told_about_diff++ or print $TESTERR <<"EOT"; # $prefix (Install the Algorithm::Diff module to have differences in multiline |