Force uppercase drive letters

Attached patch forces drive letters to uppercase from
Win32::GetLongPathName.  This fixes the following test
failures
encountered under Cygwin on Windows:

../ext/Win32/t/Unicode....1..12
# Running under perl version 5.010000 for cygwin
# Current time local: Thu Sep  6 12:55:39 2007
# Current time GMT:   Thu Sep  6 16:55:39 2007
# Using Test.pm version 1.25
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
# Test 9 got:
"C:\perl_tmp\31805\perl-current\t\Foo
xx Bar xx Baz"
(../ext/Win32/t/Unicode.t at
line 73)
#   Expected:
"c:\perl_tmp\31805\perl-current\t\Foo
xx Bar xx Baz"
#  ../ext/Win32/t/Unicode.t line 73 is:
ok(Win32::GetLongPathName($w32dir), $long);
# Test 10 got:
"C:\perl_tmp\31805\perl-current\t\Foo
xx Bar xx Baz"
(../ext/Win32/t/Unicode.t at
line 81)
#    Expected:
"c:\perl_tmp\31805\perl-current\t\Foo
xx Bar xx Baz"
#  ../ext/Win32/t/Unicode.t line 81 is:
ok(Win32::GetLongPathName($subdir), $long);
# Test 12 got:
"C:\perl_tmp\31805\perl-current\t\Foo
xx Bar xx Baz"
(../ext/Win32/t/Unicode.t at
line 85)
#    Expected:
"c:\perl_tmp\31805\perl-current\t\Foo
xx Bar xx Baz"
#  ../ext/Win32/t/Unicode.t line 85 is:
ok(Win32::GetLongPathName(Win32::GetCwd()), $long);
ok 8
not ok 9
not ok 10
ok 11
not ok 12
FAILED tests 9-10, 12
        Failed 3/12 tests, 75.00% okay
Failed Test              Stat Wstat Total Fail  List of
Failed
------------------------------------------------------------
-------------------
../ext/Win32/t/Unicode.t               12    3  9-10 12
Failed 1/1 test scripts. 3/12 subtests failed.
Files=1, Tests=12,  0 wallclock secs ( 0.17 cusr +  0.09
csys =  0.26 CPU)
Failed 1/1 test programs. 3/12 subtests failed.

On 06/09/2007, Jerry D. Hedden <jdheddencpan.org> wrote:
> Attached patch forces drive letters to uppercase from
> Win32::GetLongPathName.  This fixes the following test
failures
> encountered under Cygwin on Windows:

Thanks, applied as #31807.