update credits
[LibreOffice.git] / solenv / bin / modules / macosxotoolhelper.pm
blob36a36f99f9db0095e1d268c7dfa9c1cd56412522
2 # This file is part of the LibreOffice project.
4 # This Source Code Form is subject to the terms of the Mozilla Public
5 # License, v. 2.0. If a copy of the MPL was not distributed with this
6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 # This file incorporates work covered by the following license notice:
10 # Licensed to the Apache Software Foundation (ASF) under one or more
11 # contributor license agreements. See the NOTICE file distributed
12 # with this work for additional information regarding copyright
13 # ownership. The ASF licenses this file to you under the Apache
14 # License, Version 2.0 (the "License"); you may not use this file
15 # except in compliance with the License. You may obtain a copy of
16 # the License at http://www.apache.org/licenses/LICENSE-2.0 .
19 package macosxotoolhelper;
20 require Exporter;
21 our @ISA = Exporter;
22 our @EXPORT = otoolD;
24 sub otoolD($) {
25 my ($file) = @_;
26 my $call = "otool -D $file";
27 open(IN, "-|", $call) or die "cannot $call";
28 my $line = <IN>;
29 $line =~ /^\Q$file\E:\n$/ or
30 die "unexpected otool -D output (\"$line\", expecting \"$file:\")";
31 $line = <IN>;
32 <IN> == undef or die "unexpected otool -D output";
33 close(IN);
34 return $line;