summaryrefslogtreecommitdiff
path: root/t/harness
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-04-12 19:57:05 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-04-12 19:57:05 +0000
commitbb27e7b65ce5dddfbcc195ca657661d5cc662d88 (patch)
tree9f4f7b192a3f2e507fcac0d699277413c502e772 /t/harness
parent3241943182ef83e0280bc5b8b03b564dc33de822 (diff)
downloadperl-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/harness1
1 files changed, 1 insertions, 0 deletions
diff --git a/t/harness b/t/harness
index a19363af3e..e9cf2ed925 100644
--- a/t/harness
+++ b/t/harness
@@ -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");