diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-07-31 00:45:12 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-01 20:59:59 +0000 |
| commit | 3cfae81b38bc8edd77142113464ee12c2a2e5af0 (patch) | |
| tree | 06dfba65718e52a2f5b475c60077ce21639209e6 /lib/ExtUtils/Mksymlists.pm | |
| parent | 6dce6b70b85ef184fc8b4432d2436d1be5f0b117 (diff) | |
| download | perl-3cfae81b38bc8edd77142113464ee12c2a2e5af0.tar.gz | |
slightly modified version of suggested patch
Message-Id: <199907311406.IAA25034@localhost.frii.com>
Subject: [PATCH 5.005_58] Fix OS/2 build
p4raw-id: //depot/perl@3856
Diffstat (limited to 'lib/ExtUtils/Mksymlists.pm')
| -rw-r--r-- | lib/ExtUtils/Mksymlists.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm index 76535d9386..cfc1e7dff8 100644 --- a/lib/ExtUtils/Mksymlists.pm +++ b/lib/ExtUtils/Mksymlists.pm @@ -76,12 +76,19 @@ sub _write_os2 { ($data->{DLBASE} = $data->{NAME}) =~ s/.*:://; $data->{DLBASE} = substr($data->{DLBASE},0,7) . '_'; } + my $distname = $data->{DISTNAME} || $data->{NAME}; + $distname = "Distribution $distname"; + my $comment = "Perl (v$]$threaded) module $data->{NAME}"; + if ($data->{INSTALLDIRS} and $data->{INSTALLDIRS} eq 'perl') { + $distname = 'perl5-porters@perl.org'; + $comment = "Core $comment"; + } rename "$data->{FILE}.def", "$data->{FILE}_def.old"; open(DEF,">$data->{FILE}.def") or croak("Can't create $data->{FILE}.def: $!\n"); print DEF "LIBRARY '$data->{DLBASE}' INITINSTANCE TERMINSTANCE\n"; - print DEF "DESCRIPTION 'Perl (v$]$threaded) module $data->{NAME} v$data->{VERSION}'\n"; + print DEF "DESCRIPTION '\@#$distname:$data->{VERSION}#\@ $comment'\n"; print DEF "CODE LOADONCALL\n"; print DEF "DATA LOADONCALL NONSHARED MULTIPLE\n"; print DEF "EXPORTS\n "; |