From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 23 Sep 2001 07:48:01 +0000 (+0000)
Subject: Integrate mainline
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50100e4a6999f57068d193245e80aa1071ce855f;p=p5sagit%2Fp5-mst-13.2.git

Integrate mainline

p4raw-id: //depot/perlio@12155
---

50100e4a6999f57068d193245e80aa1071ce855f
diff --cc check83.pl
index 0000000,0000000..69e00c6
new file mode 100644
--- /dev/null
+++ b/check83.pl
@@@ -1,0 -1,0 +1,41 @@@
++sub eight_dot_three {
++    my ($dir, $base, $ext) = ($_[0] =~ m!^(?:(.+)/)?([^/.]+)(?:\.([^/.]+))?$!);
++    $base = substr($base, 0, 8);
++    $ext  = substr($ext,  0, 3) if defined $ext;
++    if (defined $dir) {
++	return ($dir, defined $ext ? "$dir/$base.$ext" : "$dir/$base");
++    } else {
++	return ('.', defined $ext ? "$base.$ext" : $base);
++    }
++}
++
++my %dir;
++
++if (open(MANIFEST, "MANIFEST")) {
++    while (<MANIFEST>) {
++	chomp;
++	s/\s.+//;
++	unless (-f) {
++	    warn "$_: missing\n";
++	    next;
++	}
++	if (tr/././ > 1) {
++	    warn "$_: more than one dot\n";
++	    next;
++	}
++	my ($dir, $edt) = eight_dot_three($_);
++	next if $edt eq $_;
++	push @{$dir{$dir}->{$edt}}, $_;
++    }
++} else {
++    die "$0: MANIFEST: $!\n";
++}
++
++for my $dir (sort keys %dir) {
++    for my $edt (keys %{$dir{$dir}}) {
++	my @files = @{$dir{$dir}->{$edt}};
++	if (@files > 1) {
++	    print "$dir $edt @files\n";
++	}
++    }
++}