Switch two regexps to strip trailing dots earlier from library specs.

This fixes dependency checks of specifications like bar.1.1.::foo/bar
which is now dealt with the same as bar.1.1::foo/bar
This commit is contained in:
sturm 2003-04-18 20:27:59 +00:00
parent 988c2129cd
commit 5d346b70df

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w
# $OpenBSD: check-libs,v 1.4 2002/12/03 13:56:44 espie Exp $
# $OpenBSD: check-libs,v 1.5 2003/04/18 20:27:59 sturm Exp $
# Copyright (c) 2001 Marc Espie
#
@ -56,7 +56,7 @@ sub find_library
my $error = 0;
my %registered = map { s/.*\///; s/(?:\.\d+){1,2}$//; s/\.$//; ($_, 1); }
my %registered = map { s/.*\///; s/\.$//; s/(?:\.\d+){1,2}$//; ($_, 1); }
split(/[ ,\n]+/, $ENV{'LIB_DEPENDS'});
open(LIBS, '<', shift);