From: Jarkko Hietaniemi Date: Mon, 25 Mar 2002 16:57:10 +0000 (+0000) Subject: Clarify the 8.3 rule. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a715e865e72ae0889250688904757201b677045;p=p5sagit%2Fp5-mst-13.2.git Clarify the 8.3 rule. p4raw-id: //depot/perl@15491 --- diff --git a/Porting/check83.pl b/Porting/check83.pl index 0522bc0..7ec1d43 100644 --- a/Porting/check83.pl +++ b/Porting/check83.pl @@ -3,6 +3,17 @@ # Check whether there are naming conflicts when names are truncated to # the DOSish case-ignoring 8.3 format, plus other portability no-nos. +# The "8.3 rule" is "if reducing the directory entry names within one +# directory to lowercase and 8.3-truncated causes conflicts, that's +# a bad thing". So the rule is NOT "no filename shall be longer +# than eight and a suffix if present not longer than three". + +# TODO: this doesn't actually check for *directory entries*, what +# this does is to check for *MANIFES entries*, which are only files, +# not directories. In other words, a conflict between a directory +# "abcdefghx" and a file "abcdefghy" wouldn't be noticed-- or even +# for a directory "abcdefgh" and a file "abcdefghy". + sub eight_dot_three { my ($dir, $base, $ext) = ($_[0] =~ m!^(?:(.+)/)?([^/.]+)(?:\.([^/.]+))?$!); my $file = $base . defined $ext ? ".$ext" : "";