This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 23 Sep 2001 07:48:01 +0000 (07:48 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 23 Sep 2001 07:48:01 +0000 (07:48 +0000)
p4raw-id: //depot/perlio@12155

1  2 
check83.pl
ext/Encode/Encode/2022-cn.enc

diff --cc check83.pl
index 0000000,0000000..69e00c6
new file mode 100644 (file)
--- /dev/null
--- /dev/null
@@@ -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";
++      }
++    }
++}
Simple merge