From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 3 Dec 2001 22:29:58 +0000 (+0000)
Subject: This test is not very robust on 8.3-constrained systems:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08cdd7a3de4eb3ffe964e3e82fff3fdae9b8fabd;p=p5sagit%2Fp5-mst-13.2.git

This test is not very robust on 8.3-constrained systems:
all the "with truncated name" lines between "Autosplitting ..."
and "some names are not unique" lines are unexpected,
and the truncation message becomes:
testtest.al, testtest.al truncate to testtest

p4raw-id: //depot/perl@13446
---

diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t
index 8d764c1..e5466a4 100644
--- a/lib/AutoSplit.t
+++ b/lib/AutoSplit.t
@@ -7,6 +7,10 @@ my $incdir;
 my $lib = '"-I../lib"'; # ok on unix, nt, The extra \" are for VMS
 BEGIN {
     chdir 't' if -d 't';
+    if ($^O eq 'dos') {
+	print "1..0 # This test is not 8.3-aware.\n";
+	    exit 0;
+    }
     if ($^O eq 'MacOS') {
 	$incdir = ":auto-$$";
         $lib = '-x -I::lib:'; # -x overcomes MPW $Config{startperl} anomaly