don't try to resolve links for binaries, it actually makes little sense.
suggestion from mike erdely and others.
This commit is contained in:
parent
80ce3ec43d
commit
5757a044de
@ -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\,/) {
|
||||
|
Loading…
Reference in New Issue
Block a user