diff options
author | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
---|---|---|
committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
commit | 3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03 (patch) | |
tree | 0143be655536dc428f4fa3cc7d01f6bcffe14c01 /win32/makeperldef.pl | |
parent | 08aa1457cd52a368c210ab76a3da91cfadabea1a (diff) | |
parent | 3458556dd685b1767b760a72bd2e9007b5c4575e (diff) | |
download | perl-3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03.tar.gz |
[differences between cumulative patch application and perl5.004_01]perl-5.004_01
[editor's note: The changes between this and 5.004 were processed from
the m1t2 release, which was a bad idea as it was the _01 release which
had the final corrected attributions. The differences between the
various m*t* releases do that; I considered it most valuable just to
look at the _NN releases. Many patches have been separated out and/or
applied from the p5p archives nonetheless.]
Diffstat (limited to 'win32/makeperldef.pl')
-rw-r--r-- | win32/makeperldef.pl | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/win32/makeperldef.pl b/win32/makeperldef.pl index 0ad09b8303..620d2ebab3 100644 --- a/win32/makeperldef.pl +++ b/win32/makeperldef.pl @@ -1,4 +1,23 @@ +my $CCTYPE = ""; print "EXPORTS\n"; foreach (@ARGV) { - print "\tboot_$_\n" - }; + if (/CCTYPE=(.*)$/) { + $CCTYPE = $1; + next; + } + emit_symbol("boot_$_"); +} + +sub emit_symbol { + my $symbol = shift; + if ($CCTYPE eq "BORLAND") { + # workaround Borland quirk by export both the straight + # name and a name with leading underscore + print "\t$symbol=_$symbol\n"; + print "\t_$symbol\n"; + } + else { + print "\t$symbol\n"; + } +} + |