2 my ($dir, $base, $ext) = ($_[0] =~ m!^(?:(.+)/)?([^/.]+)(?:\.([^/.]+))?$!);
3 $base = substr($base, 0, 8);
4 $ext = substr($ext, 0, 3) if defined $ext;
6 return ($dir, defined $ext ? "$dir/$base.$ext" : "$dir/$base");
8 return ('.', defined $ext ? "$base.$ext" : $base);
14 if (open(MANIFEST, "MANIFEST")) {
23 warn "$_: more than one dot\n";
26 my ($dir, $edt) = eight_dot_three($_);
28 push @{$dir{$dir}->{$edt}}, $_;
31 die "$0: MANIFEST: $!\n";
34 for my $dir (sort keys %dir) {
35 for my $edt (keys %{$dir{$dir}}) {
36 my @files = @{$dir{$dir}->{$edt}};
38 print "$dir $edt @files\n";