1*9780544fSAndrew Rist#************************************************************** 2*9780544fSAndrew Rist# 3*9780544fSAndrew Rist# Licensed to the Apache Software Foundation (ASF) under one 4*9780544fSAndrew Rist# or more contributor license agreements. See the NOTICE file 5*9780544fSAndrew Rist# distributed with this work for additional information 6*9780544fSAndrew Rist# regarding copyright ownership. The ASF licenses this file 7*9780544fSAndrew Rist# to you under the Apache License, Version 2.0 (the 8*9780544fSAndrew Rist# "License"); you may not use this file except in compliance 9*9780544fSAndrew Rist# with the License. You may obtain a copy of the License at 10*9780544fSAndrew Rist# 11*9780544fSAndrew Rist# http://www.apache.org/licenses/LICENSE-2.0 12*9780544fSAndrew Rist# 13*9780544fSAndrew Rist# Unless required by applicable law or agreed to in writing, 14*9780544fSAndrew Rist# software distributed under the License is distributed on an 15*9780544fSAndrew Rist# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*9780544fSAndrew Rist# KIND, either express or implied. See the License for the 17*9780544fSAndrew Rist# specific language governing permissions and limitations 18*9780544fSAndrew Rist# under the License. 19*9780544fSAndrew Rist# 20*9780544fSAndrew Rist#************************************************************** 21*9780544fSAndrew Rist 22*9780544fSAndrew Rist 23cdf0e10cSrcweir 24cdf0e10cSrcweirpackage macosxotoolhelper; 25cdf0e10cSrcweirrequire Exporter; 26cdf0e10cSrcweirour @ISA = Exporter; 27cdf0e10cSrcweirour @EXPORT = otoolD; 28cdf0e10cSrcweir 29cdf0e10cSrcweirsub otoolD($) { 30cdf0e10cSrcweir my ($file) = @_; 31cdf0e10cSrcweir my $call = "otool -D $file"; 32cdf0e10cSrcweir open(IN, "-|", $call) or die "cannot $call"; 33cdf0e10cSrcweir my $line = <IN>; 34e0c61c1eSHerbert Dürr if( $line !~ /^\Q$file\E:\n$/ ) { 35cdf0e10cSrcweir die "unexpected otool -D output (\"$line\", expecting \"$file:\")"; 36e0c61c1eSHerbert Dürr } 37cdf0e10cSrcweir $line = <IN>; 38cdf0e10cSrcweir <IN> == undef or die "unexpected otool -D output"; 39cdf0e10cSrcweir close(IN); 40cdf0e10cSrcweir return $line; 41cdf0e10cSrcweir} 42