| Subject: | Endless loop in test grabs memory |
The test t/01-transfer.t grabs memory and seemingly runs forever:
sand 17429 33.6 24.9 394968 388328 pts/16 T 03:32 18:22
/home/src/perl/repoperls/installed-perls/maint-5.8/pnDGtsd/perl-5.8.7@27040/bin/perl
-w t/01-transfer.t
While doing this it's writing an endless stream of
self signed certificate at
/home/sand/.cpan/build/Data-Transform-SSL-0.02-sDEJhk/blib/lib/Data/Transform/SSL.pm
line 71.
to the console. In the debugger I see
DB<2> n
self signed certificate at blib/lib/Data/Transform/SSL.pm line 71.
at blib/lib/Data/Transform/SSL.pm line 71
Data::Transform::SSL::__ANON__[blib/lib/Data/Transform/SSL.pm:77](0,
140735753439856) called at blib/lib/Data/Transform/SSL.pm line 185
Data::Transform::SSL::_try_connection('Data::Transform::SSL=ARRAY(0x2699c10)')
called at blib/lib/Data/Transform/SSL.pm line 231
Data::Transform::SSL::_handle_get_data('Data::Transform::SSL=ARRAY(0x2699c10)')
called at /usr/local/perl-5.10/lib/site_perl/5.10.0/Data/Transform.pm
line 91
Data::Transform::get_one('Data::Transform::SSL=ARRAY(0x2699c10)') called
at /usr/local/perl-5.10/lib/site_perl/5.10.0/Data/Transform.pm line 128
Data::Transform::get('Data::Transform::SSL=ARRAY(0x2699c10)',
'ARRAY(0x29fe390)') called at t/01-transfer.t line 25
Data::Transform::get(/usr/local/perl-5.10/lib/site_perl/5.10.0/Data/Transform.pm:129):
129: last unless @$next;
DB<2> n
Data::Transform::get(/usr/local/perl-5.10/lib/site_perl/5.10.0/Data/Transform.pm:130):
130: push @return, @$next;
DB<2> x scalar @return
0 23052
Making this a breakpoint reveals that this @return array grows forever.
Let me know if you need further data.
Thanks!