This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't bother prettifying win32/perldll.def
authorSteve Hay <steve.m.hay@googlemail.com>
Sun, 25 Jan 2015 14:05:39 +0000 (14:05 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Sun, 25 Jan 2015 14:05:39 +0000 (14:05 +0000)
It's not a file that anyone ever really looks inside anyway, so it's not
worth the possible future breakage if we ever have a PL_ symbol 32 or more
characters long.

makedef.pl

index 2b5ca80..b31d8a0 100644 (file)
@@ -1302,11 +1302,9 @@ elsif ($ARGS{PLATFORM} eq 'netware') {
 my @symbols = $fold ? sort {lc $a cmp lc $b} keys %export : sort keys %export;
 foreach my $symbol (@symbols) {
     if (PLATFORM eq 'win32' || PLATFORM eq 'wince') {
-       #remembering the origin file of each symbol is an alternative to PL_ matching
-       if(substr($symbol, 0, 3) eq 'PL_') {
-           #PL_utf8_charname_continue @ 25 seems to be the longest symbol
-           #pick 32 for visual alignment, plus 32 is 8/tab aligned
-           print "\t$symbol".' 'x(32 - length $symbol )."DATA\n";
+       # Remembering the origin file of each symbol is an alternative to PL_ matching
+       if (substr($symbol, 0, 3) eq 'PL_') {
+           print "\t$symbol DATA\n";
        }
        else {
            print "\t$symbol\n";