diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-12 19:57:05 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-12 19:57:05 +0000 |
commit | bb27e7b65ce5dddfbcc195ca657661d5cc662d88 (patch) | |
tree | 9f4f7b192a3f2e507fcac0d699277413c502e772 /t/harness | |
parent | 3241943182ef83e0280bc5b8b03b564dc33de822 (diff) | |
download | perl-bb27e7b65ce5dddfbcc195ca657661d5cc662d88.tar.gz |
Integrate change #15879 from maint-5.6;
Win32::GetLongPathName() did not return valid results if there
were "." and ".." components in the path; also fix a potential
buffer overflow if the long path happens to be longer than
MAX_PATH (this can presumably happen if they use \\?\... style
paths); add a rather limited testsuite that exercises just the
edge cases
p4raw-link: @15879 on //depot/maint-5.6/perl: a15439704ef1059bf178ec4b1820fee7b2af7173
p4raw-id: //depot/perl@15880
p4raw-branched: from //depot/maint-5.6/perl@15877 'branch in'
t/win32/longpath.t
p4raw-integrated: from //depot/maint-5.6/perl@15877 'ignore' MANIFEST
(@12747..) 'merge in' t/harness (@11427..) win32/win32.c
(@13145..)
Diffstat (limited to 't/harness')
-rw-r--r-- | t/harness | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -57,6 +57,7 @@ if (@ARGV) { push @tests, <op/*.t>; push @tests, <uni/*.t>; push @tests, <lib/*.t>; + push @tests, <win32/*.t> if $^O eq 'MSWin32'; use File::Spec; my $updir = File::Spec->updir; my $mani = File::Spec->catfile(File::Spec->updir, "MANIFEST"); |