X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fcheck83.pl;h=56989fa9e07a9720fc179c2bdc431347ba9f5b7f;hb=115454352a978d4e8b08f627af1ad772bab2816b;hp=71488ec8306bc48a3bb1efd7e8e9a54307bc62fb;hpb=479ac4ebd43c73d48878a374987b8699da2c9231;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/check83.pl b/Porting/check83.pl
index 71488ec..56989fa 100644
--- a/Porting/check83.pl
+++ b/Porting/check83.pl
@@ -11,6 +11,10 @@ use strict;
 # "no filename shall be longer than eight and a suffix if present
 # not longer than three".
 
+# The 8-level depth rule is for older VMS systems that likely won't
+# even be able to unpack the tarball if more than eight levels 
+# (including the top of the source tree) are present.
+
 my %seen;
 my $maxl = 30; # make up a limit for a maximum filename length
 
@@ -50,6 +54,10 @@ if (open(MANIFEST, "MANIFEST")) {
 	    print "more than one dot: $_\n";
 	    next;
 	}
+	if ((my $slashes = $_ =~ tr|\/|\/|) > 7) {
+	    print "more than eight levels deep: $_\n";
+	    next;
+	}
 	while (m!/|\z!g) {
 	    my ($dir, $edt) = eight_dot_three($`);
 	    next unless defined $dir;