cvsuser 02/04/28 19:28:25
Modified: . Configure.pl
Log:
Anchor the regex, if that's what you mean.
Revision Changes Path
1.104 +3 -3 parrot/Configure.pl
Index: Configure.pl
===================================================================
RCS file: /cvs/public/parrot/Configure.pl,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -w -r1.103 -r1.104
--- Configure.pl 28 Apr 2002 23:41:56 -0000 1.103
+++ Configure.pl 29 Apr 2002 02:28:25 -0000 1.104
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.103 2002/04/28 23:41:56 robert Exp $
+# $Id: Configure.pl,v 1.104 2002/04/29 02:28:25 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.103 2002/04/28 23:41:56 robert Exp $' . "\n";
+ print '$Id: Configure.pl,v 1.104 2002/04/29 02:28:25 robert Exp $' . "\n";
exit;
}
@@ -303,7 +303,7 @@
my $unwanted = join("|",qw(c gdbm dbm ndbm db));
$c{libs} = (join " ",
map { "$_" }
- grep {!/-l(?:$unwanted)/}
+ grep {!/^-l(?:$unwanted)$/}
split /\s/, $c{libs});
}
