| Subject: | Bottomless Recursion in Test::Harness::FileFilter |
Dear Claes Jakobsson,
Hi. This is imacat from Taiwan. I found that your
Test-Harness-FileFilter-0.01 gets into bottomless deep recursion, which
eats up all the memory and dies. I tried to investigate further. It
seems that your Test::Harness::FileFilter tried to replace the
Test::Harness::_run_all_tests() and call the original one afterwards.
But Test::Harness::_run_all_tests() was removed for Test::Harness
version >= 2.56. This results the preservation of
&Test::Harness::_run_all_tests() will point back to the replacement
itself, and become calling itself recursively.
I do not know what to do with this situation. Maybe you can take
some time to look into this issue.
The terminal log is attached below. Hope that this helps. Please
tell me if you need any more information, or if I could be of any help.
Thank you.
PID USER PR NI VIRT RES SHR S %CPU %MEM TIME+ COMMAND
28884 imacat 25 0 1221m 1.2g 1824 R 100 59.8 0:33.15 perl
imacat@rinse tmp/Test-Harness-FileFilter-0.01 % perl -v
This is perl, v5.8.8 built for x86_64-linux-thread-multi-ld
Copyright 1987-2006, Larry Wall
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
imacat@rinse tmp/Test-Harness-FileFilter-0.01 % perl Makefile.PL
Checking if your kit is complete...
Looks good
Writing Makefile for Test::Harness::FileFilter
imacat@rinse tmp/Test-Harness-FileFilter-0.01 % make
cp lib/Test/Harness/FileFilter.pm blib/lib/Test/Harness/FileFilter.pm
Manifying blib/man3/Test::Harness::FileFilter.3
imacat@rinse tmp/Test-Harness-FileFilter-0.01 % make test
t/00-load...........1/1 # Testing Test::Harness::FileFilter 0.01, Perl
5.008008, /usr/bin/perl
t/00-load...........ok
t/01-ignore.........1/2 # Testing HARNESS_IGNORE_FILES
Deep recursion on anonymous subroutine at
/home/imacat/tmp/Test-Harness-FileFilter-0.01/blib/lib/Test/Harness/FileFilter.pm
line 41.
make: *** [test_dynamic] Interrupt
imacat@rinse tmp/Test-Harness-FileFilter-0.01 % perl -Iblib/lib
-Iblib/arch t/01-ignore.t
1..2
ok 1 - use Test::Harness::FileFilter;
# Testing HARNESS_IGNORE_FILES
Deep recursion on anonymous subroutine at
blib/lib/Test/Harness/FileFilter.pm line 41.
imacat@rinse tmp/Test-Harness-FileFilter-0.01 %