perl - 使用 Win32::Console 加载包 - 无输出

Question

为什么我在加载这个包（WinXP SP3，Strawberry Perl 5.18.1）时没有输出？

package MY_TEST;
use warnings;
use strict;
use Win32::Console;

my $output;
$output ||= Win32::Console->new( STD_OUTPUT_HANDLE );

1;

脚本：

#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;
use MY_TEST;

say 'Hello World';

没有输出。

Answer 1

我找到了一个解决方案：

package MY_TEST;
use warnings;
use strict;
use Win32::Console;

my $output = Win32::Console->new( STD_OUTPUT_HANDLE );
$output->{handle} = undef;

1;

我想这个问题与这个Bug #33513 有关。