diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-03 22:29:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-03 22:29:58 +0000 |
| commit | 08cdd7a3de4eb3ffe964e3e82fff3fdae9b8fabd (patch) | |
| tree | c72902f45a5447fa6cf8c426c92b994dc59e0af1 /lib/AutoSplit.t | |
| parent | 955f4eee62a663c36112083371fd498b54b503d7 (diff) | |
| download | perl-08cdd7a3de4eb3ffe964e3e82fff3fdae9b8fabd.tar.gz | |
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
Diffstat (limited to 'lib/AutoSplit.t')
| -rw-r--r-- | lib/AutoSplit.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t index 8d764c1eef..e5466a46e9 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 |