cvsuser 02/04/28 16:41:56
Modified: . Configure.pl
Log:
Remove unwanted libraries from the the libs configuration.
Revision Changes Path
1.103 +12 -2 parrot/Configure.pl
Index: Configure.pl
===================================================================
RCS file: /cvs/public/parrot/Configure.pl,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -w -r1.102 -r1.103
--- Configure.pl 2 Apr 2002 04:46:44 -0000 1.102
+++ Configure.pl 28 Apr 2002 23:41:56 -0000 1.103
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.102 2002/04/02 04:46:44 sfink Exp $
+# $Id: Configure.pl,v 1.103 2002/04/28 23:41:56 robert Exp $
#
# Author: Brent Dax
#
@@ -77,7 +77,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
- print '$Id: Configure.pl,v 1.102 2002/04/02 04:46:44 sfink Exp $' . "\n";
+ print '$Id: Configure.pl,v 1.103 2002/04/28 23:41:56 robert Exp $' . "\n";
exit;
}
@@ -296,6 +296,16 @@
@c{keys %opt_defines}=values %opt_defines;
+# There are some libraries which perl tends to include, but we aren't
+# really interested in them yet. (We'll need our own probes for some
+# of these.)
+if ($^O ne 'VMS' && $^O !~ /MSWin/i) {
+ my $unwanted = join("|",qw(c gdbm dbm ndbm db));
+ $c{libs} = (join " ",
+ map { "$_" }
+ grep {!/-l(?:$unwanted)/}
+ split /\s/, $c{libs});
+}
#
# Set up default values
