Hello Perl monks

I need help with the Win32::GetShortPathName. On one problem machine, the function does not always return a short (8.3) path name. The machine is Windows 2000 running ActiveState 5.6.1 build 635.

My test code is:

#-- test perl program to determine set up
use strict;
use warnings;

print "\n\nTest program to determine OS/File paths as seen by Perl \n\
+n";

#-- get the OS variable
print "\nOperating system as returned by \$^O variable is:\t $^O\n";

#-- list of directories
my @files = ( 'C:\program files\merant build',
              'C:\PROGRA~1\merant build'
            );

foreach my $file ( @files )
{
 print "Long Path:\t$file\nShortPath:\t" .
    Win32::GetShortPathName($file) . "\n\n";
}
[download]

The result of the test is:

Test program to determine OS/File paths as seen by Perl 


Operating system as returned by $^O variable is:     MSWin32
Long Path:    C:\program files\merant build
ShortPath:    C:\PROGRA~1\merant build

Long Path:    C:\PROGRA~1\merant build
ShortPath:    C:\PROGRA~1\merant build
[download]

I was expecting "C:\PROGRA~1\MERANT~1" in both cases. On other machines with the same directory structure, "C:\PROGRA~1\MERANT~1" is returned. Is there anywhere I should look on the machine itself (a system dll?) to see why this may be occurring? Thanks in advance.