diff options
| -rw-r--r-- | lib/ExtUtils/Mksymlists.pm | 3 | ||||
| -rw-r--r-- | makedef.pl | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm index 5f5ea063c6..fcd1d04f08 100644 --- a/lib/ExtUtils/Mksymlists.pm +++ b/lib/ExtUtils/Mksymlists.pm @@ -6,6 +6,7 @@ use strict qw[ subs refs ]; use Carp; use Exporter; +use Config; our(@ISA, @EXPORT, $VERSION); @ISA = 'Exporter'; @EXPORT = '&Mksymlists'; @@ -86,6 +87,8 @@ sub _write_os2 { $distname = 'perl5-porters@perl.org'; $comment = "Core $comment"; } + $comment = "$comment (Perl-config: $Config{config_args})"; + $comment = substr($comment, 0, 200) . "...)" if length $comment > 203; rename "$data->{FILE}.def", "$data->{FILE}_def.old"; open(DEF,">$data->{FILE}.def") diff --git a/makedef.pl b/makedef.pl index 948066beb0..56008efb22 100644 --- a/makedef.pl +++ b/makedef.pl @@ -151,9 +151,11 @@ elsif ($PLATFORM eq 'os2') { ($v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/; $v .= '-thread' if $ARCHNAME =~ /-thread/; ($dll = $define{PERL_DLL}) =~ s/\.dll$//i; + $d = "DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter, configured as $CONFIG_ARGS'"; + $d = substr($d, 0, 249) . "...'" if length $d > 253; print <<"---EOP---"; LIBRARY '$dll' INITINSTANCE TERMINSTANCE -DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter' +$d STACKSIZE 32768 CODE LOADONCALL DATA LOADONCALL NONSHARED MULTIPLE |