don't try to resolve links for binaries, it actually makes little sense.

suggestion from mike erdely and others.
This commit is contained in:
espie 2008-06-18 12:11:01 +00:00
parent 80ce3ec43d
commit 5757a044de

View File

@ -1,5 +1,5 @@
#! /usr/bin/perl
# $OpenBSD: make-plist,v 1.99 2008/06/12 09:06:52 bernd Exp $
# $OpenBSD: make-plist,v 1.100 2008/06/18 12:11:01 espie Exp $
# Copyright (c) 2004-2006 Marc Espie <espie@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
@ -589,8 +589,7 @@ sub is_library
sub is_binary
{
my $filename = shift;
$filename = resolve_link($filename);
return 0 unless -x $filename;
return 0 if -l $filename or ! -x $filename;
my $check=`/usr/bin/file $filename`;
chomp $check;
if ($check =~m/\: ELF (32|64)-bit (MSB|LSB) executable\,.+ for OpenBSD\,/) {