http://rt.perl.org/rt3/Ticket/Display.html?id=42925
plan skip_all => '$^E not functional under Cygwin';
I don't like this comment.
DB<6> x $^E
0 'Bad file descriptor'
DB<7> x Win32::GetLastError()
0 0
DB<8> x $^E
0 'Bad file descriptor'
DB<9> x $^E = 42
0 'Protocol driver not attached'
DB<10> x $^E
0 'Protocol driver not attached'
So $^E is functional, it just is the same as $!
# [perl #42925] - Loading Win32::GetLastError() via the forwarder function
# should not affect the last error being retrieved
$^E = 42;
is(Win32::GetLastError(), 42, 'GetLastError() works on the first call');
For this testcase on cygwin I would rather check that
Win32::GetLastError() is not affected by setting $! or $^E.
============================
But on cygwin $EXTENDED_OS_ERROR should really return
Win32::GetLastError(), shouldn't it?
Should I write such a patch?
--
Reini Urban
http://phpwiki.org/ http://murbreak.at/
http://helsinki.at/ http://spacemovie.mur.at/
