PerlQt - 不能使用'已定义（@array）'

Question

我正在尝试创建简单的 PerlQt 应用程序，但是当我启动我的 Perl 脚本时出现此错误：

Can't use 'defined(@array)' (Maybe you should just omit the defined()?) at /usr/local/lib/x86_64-linux-gnu/perl/5.22.1/QtCore4.pm line 1420.
Compilation failed in require at ./perlqt.pl line 5.
BEGIN failed--compilation aborted at ./perlqt.pl line 5.

代码：

#!/usr/bin/perl

use strict;
use warnings;
use QtCore4;
use QtGui4;
use Window;

sub main
{
    my $app = Qt::Application( \@ARGV );

    if (!Qt::SystemTrayIcon::isSystemTrayAvailable()) {
        Qt::MessageBox::critical(0, Qt::Object::this->tr('Systray'),
                              Qt::Object::this->tr('I couldn\'t detect any system tray ' .
                                          'on this system.'));
        return 1;
    }
    Qt::Application::setQuitOnLastWindowClosed(0);

    my $window = Window();
    $window->show();
    return $app->exec();
}

exit main();

请问如何解决？我的代码中没有使用任何数组。

Answer 1

不能在 QtCore4.pm 第 1420 行使用 'defined(@array)'（也许你应该忽略 defined()？）。

QtCore4 做了一些没有意义的事情。目前，它“有效”——尽管很吵——但是

@{$classinfos} = () if !defined @{$classinfos};
@{$signals} = () if !defined @{$signals};
@{$slots} = () if !defined @{$slots};

应该改为

$classinfos ||= [];
$signals ||= [];
$slots ||= [];

在QtCore4.pm.

---

Devel::Peek 模块未导出“SvREFCNT_inc”
在 QtGui4.pm 第 25 行出现导入错误后无法继续。

这似乎是 Devel::Peek 中的一个错误。它曾经导出SvREFCNT_inc，文档仍然声称它可以导出，但现在不再导出了。

你可以通过替换来解决这个问题

use Devel::Peek qw( SvREFCNT_inc );

与

use Devel::Peek qw( );
BEGIN { *SvREFCNT_inc = \&Devel::Peek::SvREFCNT_inc; }

在QtGui4.pm:

（注意，Perl 代码永远不必使用SvREFCNT_inc，所以如果不是错误，它就使用 hack！）