[rt.cpan.org #56971] GetFolderPath.t tests on false assumption

[email protected] ("Paul Boldra via RT") Tue, 27 Apr 2010 09:42:13 -0400

Newsgroups	perl.libwin32
Message-ID	<[email protected]>

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: [email protected]
      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