From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sat, 19 May 2001 04:08:46 +0000 (-0400)
Subject: DLL descriptions on OS/2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1102eebe5ec184d02a12b0ae21384e5605226f7d;p=p5sagit%2Fp5-mst-13.2.git

DLL descriptions on OS/2
Message-ID: <20010519040846.A16969@math.ohio-state.edu>

p4raw-id: //depot/perl@10167
---

diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm
index 5f5ea06..fcd1d04 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 948066b..56008ef 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