Filter :: Crypto模块对DATA部分做了什么？

Question

我正在尝试使用与PAR :: Packer捆绑在一起的pp实用程序将一个Perl脚本打包到EXE，并启用Filter :: Crypto 。 但那里有些不对劲。 没有过滤器，一切都很好。 有了它，没有。 我认为它与脚本中的DATA部分有关。 以下简化的脚本可能会演示问题，但我不确定我的问题是否是特定于操作系统的。 问题是：当我使用时

pp --gui -o 1.exe test.pl

EXE的工作方式与预期的一样。 它显示DATA部分中的内容。 但随着

pp --gui -f Crypto -M Filter::Crypto::Decrypt -o 2.exe test.pl

EXE不输出任何内容。

use Win32::GUI;
use strict;
use warnings;

my $mw = new Win32::GUI::DialogBox(
  -text         => 'Test',
  -left         => 300,
  -top          => 100,
  -left         => 60,
  -width        => 200,
  -height       => 200,
);

$mw->Show();

my $result = $mw->AddTextfield(
  -left         => 0,
  -top          => 40,
  -size         => [180,100],
  -vscroll =>1,
  -multiline => 1,
);

my $button = $mw->AddButton(
  -name         => 'button',
  -text         => 'Go',
  -left         => 120,
  -top          => 10,
  -visible =>1,
);

Win32::GUI::Dialog;

sub button_Click {

while(<DATA>) {
    $result->Append("$_\r\n");
}
}

__DATA__
This is LINE1
This is LINE2
This is LINE3

总是感谢任何指导/指针/建议/评论:)

Answer 1

我已将此报告为 Filter :: Crypto bug跟踪器中的错误 。