diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2015-01-25 14:05:39 +0000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2015-01-25 14:05:39 +0000 |
| commit | 75debb79e45d698f62a32fcd7d1b020a8a677eda (patch) | |
| tree | 151df84986b8d4884dee5c7aa5826f3ee58ead20 /makedef.pl | |
| parent | 196f7c461ba850055201ff924cdf91c397a77bc7 (diff) | |
| download | perl-75debb79e45d698f62a32fcd7d1b020a8a677eda.tar.gz | |
Don't bother prettifying win32/perldll.def
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.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/makedef.pl b/makedef.pl index 2b5ca80c53..b31d8a0aa1 100644 --- a/makedef.pl +++ b/makedef.pl @@ -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"; |