执行时无法解析遇到的羊群错误

发布于 2025-02-13 04:32:09 字数 951 浏览 0 评论 0 原文

在调用Perl解释器并调用Perl Subroutine的CPP中执行自动单元测试时遇到以下错误这是代码段： -

sub perlflock {
my $xsptr = shift;
my $self = shift;
my ($file, $use_locking) = @_;
logcroak "not a reference" unless ref($self);
logcroak "wrong argument number" unless @_ == 2;    # No @foo in arglist
local *FILE;
if ($use_locking) {
    open(FILE, ">>", $file) || logcroak "can't write into $file: $!";
    unless (1) {
        logcarp
          "Storable::lock_store: fcntl/flock emulation broken on $^O";
        return undef;
    }
    flock(FILE, LOCK_SH | LOCK_NB) ||
      logcroak "can't get exclusive lock on $file: $!";
    truncate FILE, 0;
    # Unlocking will happen when FILE is closed
} else {
    open(FILE, ">", $file) || logcroak "can't create $file: $!";
}

frl-plugin：perlscript：error：被操作蒙版捕获的“羊群”，at/usr/lib64/perl5/vendor_perl/storable.pm第271行。汇编失败了，请访问/usr/share/perl5/vendor_perl/const/fast.pm第15行。汇编失败了。开始失败 - 编译流产。

原文

encountered below error when executing the automated unit testing in cpp that invoked the perl interpreter and calls the perl subroutine
this is the code snippet :-

sub perlflock {
my $xsptr = shift;
my $self = shift;
my ($file, $use_locking) = @_;
logcroak "not a reference" unless ref($self);
logcroak "wrong argument number" unless @_ == 2;    # No @foo in arglist
local *FILE;
if ($use_locking) {
    open(FILE, ">>", $file) || logcroak "can't write into $file: $!";
    unless (1) {
        logcarp
          "Storable::lock_store: fcntl/flock emulation broken on $^O";
        return undef;
    }
    flock(FILE, LOCK_SH | LOCK_NB) ||
      logcroak "can't get exclusive lock on $file: $!";
    truncate FILE, 0;
    # Unlocking will happen when FILE is closed
} else {
    open(FILE, ">", $file) || logcroak "can't create $file: $!";
}

frl-plugin:perlscript: ERROR: 'flock' trapped by operation mask at /usr/lib64/perl5/vendor_perl/Storable.pm line 271.
Compilation failed in require at /usr/share/perl5/vendor_perl/Const/Fast.pm line 15.
Compilation failed in require.
BEGIN failed--compilation aborted.