X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FAutoSplit.t;h=e5466a46e968c4833ab57097ffa1c14c01933b43;hb=08cdd7a3de4eb3ffe964e3e82fff3fdae9b8fabd;hp=dbd003d446174ba309f8585e62fa0e337856c152;hpb=18e548ce1d77b525add551f80ef335f852cf9389;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t index dbd003d..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 @@ -369,7 +373,7 @@ is (&*MOD*::zombie, "You didn't use fire.", "Are our zombies undead?"); True, so don't scrub this directory. ################################################################ ## Name -Without the the timestamp check make sure that nothing happens +Without the timestamp check make sure that nothing happens ## Extra 0, 1, 1 ## Require @@ -391,7 +395,7 @@ is (&*MOD*::zombie, "You didn't use fire.", "Are our zombies still undead?"); True, so don't scrub this directory. ################################################################ ## Name -With the the timestamp check make sure that things happen (stuff gets deleted) +With the timestamp check make sure that things happen (stuff gets deleted) ## Extra 0, 1, 0 ## Get