Tue Apr 27 09:42:12 2010: Request 56971 was acted upon.
Transaction: Ticket created by BOLDRA
Queue: Win32
Subject: GetFolderPath.t tests on false assumption
Broken in: 0.39
Severity: Normal
Owner: Nobody
Requestors: bol...@boldra.org
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=56971 >
The test program ext\Win32\t\GetFolderPath.t assumes that CSIDL_WINDOWS
is the same as $ENV{WINDIR}, and this is not always the case.
C:\Temp\WinAdm>perl -MWin32 -E "say for
Win32::GetFolderPath(Win32::CSIDL_WINDOWS), $ENV{WINDIR}"
C:\Documents and Settings\r3setup.TWDF1820\WINDOWS
C:\WINDOWS
workaround: set WINDIR to whatever value CSIDL_WINDOWS returns
Details of windows system:
Kernel version: Microsoft Windows Server 2003, Multiprocessor
Free
Product type: Enterprise Edition
Product version: 5.2
Service pack: 2
Kernel build number: 3790
Perl used was strawberry 5.10.1
