strip only numbers at the end, and do a better job at removing spaces.

This commit is contained in:
espie 2002-12-03 13:56:44 +00:00
parent c612390ed0
commit c43f93f261

View File

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