Change 13446 by jhi@alpha on 2001/12/03 22:29:58
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
Affected files ...
.... //depot/perl/lib/AutoSplit.t#9 edit
Differences ...
==== //depot/perl/lib/AutoSplit.t#9 (text) ====
Index: perl/lib/AutoSplit.t
--- perl/lib/AutoSplit.t.~1~ Mon Dec 3 15:45:05 2001
+++ perl/lib/AutoSplit.t Mon Dec 3 15:45:05 2001
@@ -7,6 +7,10 @@
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
End of Patch.
