使用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有关。