POE
|
7 апреля 2007 11:32
|
|
Tags: perl, POE
|
Очень радуют разработчики данного сабжа.
Модуль POE::Kernel
if ($^O eq 'MSWin32') {
*{ __PACKAGE__ . '::RUNNING_IN_HELL' } = sub { 1 };
} else {
*{ __PACKAGE__ . '::RUNNING_IN_HELL' } = sub { 0 };
}
Модуль POE::Wheel::Run
if (POE::Kernel::RUNNING_IN_HELL) {
eval { require Win32::Console; };
if ($@) { die "Win32::Console failed to load:\n$@" }
else { Win32::Console->import(); };
eval { require Win32API::File; };
if ($@) { die "Win32API::File but failed to load:\n$@" }
else { Win32API::File->import( qw(FdGetOsFHandle) ); };
}
КЗТП
|
В закладки:
|
