Mojo::UserAgent 内存漏洞问题

hbasrc

先推荐一篇好文：circular-references-memory-leaks-and-mojo

找到此文的起因是在使用Mojo::UserAgent 过程中发现有内存泄漏问题。
如下例：

1. use 5.010;
   
2. use strict;
   
3. 
   
4. use Data::Printer;
   
5. use Mojo::UserAgent;
   
6. use Mojo::IOLoop;
   
7. 
   
8. my @urls = qw/127.0.0.1 127.0.0.1:3000 www.metacpan.org www.perl.org/;
   
9. 
   
10. my $ua = new Mojo::UserAgent(max_redirects => 2);
    
11. my $max_conn = 4;
    
12. my $alive = 0;
    
13. 
    
14. my $id = Mojo::IOLoop->recurring( 0.2 => sub {
    
15.     return if $alive >= $max_conn or @urls < 1;
    
16. 
    
17.     for (1..$max_conn-$alive) {
    
18.         my $url = shift @urls;
    
19.         say 'HTTP Get: ', $url;
    
20.         $alive++;
    
21.         
    
22.         $ua->get($url => sub {
    
23.             my (undef, $tx) = @_;
    
24.             if ($tx->success) {
    
25.                 say $tx->res->dom->at('title')->text;
    
26.             } else {
    
27.                 say $tx->error->{message}, ': ', $tx->error->{code};
    
28.             }
    
29. 
    
30.             --$alive;
    
31.             push @urls, $url;
    
32.         });
    
33.     }
    
34. });
    
35. 
    
36. Mojo::IOLoop->start;
    
37. 
    
38. 1;
    
39. 
    

复制代码

在perl 5.16中上例运行后会有缓慢而又轻微的内存泄漏，
上面推荐的这篇文章很好的分析了在大量使用闭包的代码中产生内存泄漏的原因及避免的办法。
上例中如果换到perl 5.18+中问题就消失了。

但在perl 5.22中下面的代码又出现了严重内存泄漏：

1. # Perl 5.22.4 + Mojolicious v7.48
   
2. ./perl -MMojo::UserAgent -E "say Mojo::UserAgent->new->get('www.qq.com')->res->dom->at('title')->text while 1"
   

复制代码

问题可能出在DOM解析部分的模块，因为暂时用不到DOM解析，没去追踪内在问题。