48 lines
1.6 KiB
Perl
48 lines
1.6 KiB
Perl
#*************************************************************************
|
|
#
|
|
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
|
#
|
|
# Copyright 2008 by Sun Microsystems, Inc.
|
|
#
|
|
# OpenOffice.org - a multi-platform office productivity suite
|
|
#
|
|
# $RCSfile: macosxotoolhelper.pm,v $
|
|
#
|
|
# $Revision: 1.3 $
|
|
#
|
|
# This file is part of OpenOffice.org.
|
|
#
|
|
# OpenOffice.org is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU Lesser General Public License version 3
|
|
# only, as published by the Free Software Foundation.
|
|
#
|
|
# OpenOffice.org is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU Lesser General Public License version 3 for more details
|
|
# (a copy is included in the LICENSE file that accompanied this code).
|
|
#
|
|
# You should have received a copy of the GNU Lesser General Public License
|
|
# version 3 along with OpenOffice.org. If not, see
|
|
# <http://www.openoffice.org/license.html>
|
|
# for a copy of the LGPLv3 License.
|
|
#
|
|
#*************************************************************************
|
|
|
|
package macosxotoolhelper;
|
|
require Exporter;
|
|
our @ISA = Exporter;
|
|
our @EXPORT = otoolD;
|
|
|
|
sub otoolD($) {
|
|
my ($file) = @_;
|
|
my $call = "otool -D $file";
|
|
open(IN, "-|", $call) or die "cannot $call";
|
|
my $line = <IN>;
|
|
$line =~ /^$file:\n$/ or
|
|
die "unexpected otool -D output (\"$line\", expecting \"$file:\")";
|
|
$line = <IN> or die "unexpected otool -D output";
|
|
<IN> == undef or die "unexpected otool -D output";
|
|
close(IN);
|
|
return $line;
|
|
}
|