映射GTK2 :: GDK :: PixBuf是否会在Perl上产生内存泄漏？

Question

我需要从同一图像加载多个尺寸，请参阅我的perl gtk2代码：

use utf8;
use strict;
use warnings;
use Gtk2;
use Glib qw/TRUE FALSE/;

sub cb_destroy
{
    Gtk2->main_quit;
}

sub Main {
    my $title = shift;
    Gtk2->init;
    my $window = Gtk2::Window->new('toplevel');
    $window->set_default_icon_list(
        map {
            Gtk2::Gdk::Pixbuf->new_from_file_at_scale(
                'cat-purr-icon_128.png', $_, $_, TRUE )
        } 128, 64, 48, 32, 16
    );
    $window->signal_connect(destroy => \&cb_destroy);
    $window->show_all;
    Gtk2->main;
    return 0;
}

exit Main('Testing');

该代码按预期工作，但是我想知道map多次调用的方法