Change 12051 by jhi@alpha on 2001/09/17 12:55:53
Add a script for being 8.3-polite.
Affected files ...
... //depot/perl/MANIFEST#557 edit
... //depot/perl/Porting/pumpkin.pod#30 edit
... //depot/perl/check83.pl#1 add
Differences ...
==== //depot/perl/MANIFEST#557 (text) ====
==== //depot/perl/Porting/pumpkin.pod#30 (text) ====
Index: perl/Porting/pumpkin.pod
--- perl/Porting/pumpkin.pod.~1~ Mon Sep 17 07:00:06 2001
+++ perl/Porting/pumpkin.pod Mon Sep 17 07:00:06 2001
@@ -158,6 +158,7 @@
If feasible, try to keep filenames 8.3-compliant to humor those poor
souls that get joy from running Perl under such dire limitations.
+There's a script, check83.pl, for keeping your nose 8.3-clean.
=head2 Seek consensus on major changes
==== //depot/perl/check83.pl#1 (text) ====
Index: perl/check83.pl
--- perl/check83.pl.~1~ Mon Sep 17 07:00:06 2001
+++ perl/check83.pl Mon Sep 17 07:00:06 2001
@@ -0,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";
+ }
+ }
+}
End of Patch.
