diff options
| author | Philip Newton <pne@cpan.org> | 2002-03-27 10:05:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-27 13:51:52 +0000 |
| commit | 9c406a46272accd6941f5f21f6abc86cdd476f41 (patch) | |
| tree | a3a865a74e63e635181b8880b0be443d2332016a /Porting/check83.pl | |
| parent | 3f66d41918e709567ce0a5bf83036293071fd843 (diff) | |
| download | perl-9c406a46272accd6941f5f21f6abc86cdd476f41.tar.gz | |
MANIFES --> MANIFEST
Message-ID: <n963aus588jr9ql5vo1il72adol3e9kois@4ax.com>
(plus a few tweaks more)
p4raw-id: //depot/perl@15546
Diffstat (limited to 'Porting/check83.pl')
| -rw-r--r-- | Porting/check83.pl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/Porting/check83.pl b/Porting/check83.pl index 7ec1d43e41..7006d23c1f 100644 --- a/Porting/check83.pl +++ b/Porting/check83.pl @@ -3,16 +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". +# The "8.3 rule" is loose: "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 the strict +# "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". +# TODO: this doesn't actually check for *directory entries*, what this +# does is to check for *MANIFEST entries*, which are only files, not +# directories. In other words, a 8.3 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!^(?:(.+)/)?([^/.]+)(?:\.([^/.]+))?$!); @@ -26,7 +27,7 @@ sub eight_dot_three { warn "$file: filename contains non-portable characters\n"; } if (length $file > 30) { - warn "$file: filename longer than 30 characters\n"; + warn "$file: filename longer than 30 characters\n"; # make up a limit } if (defined $dir) { return ($dir, defined $ext ? "$dir/$base.$ext" : "$dir/$base"); |