1:
2 eval 'exec perl -S $0 ${1+"$@"}'
3 if 0;
4
| 1:
2 eval 'exec perl -S $0 ${1+"$@"}'
3 if 0;
4
|
5#*************************************************************************
| 5#**************************************************************
6#
7# Licensed to the Apache Software Foundation (ASF) under one
8# or more contributor license agreements. See the NOTICE file
9# distributed with this work for additional information
10# regarding copyright ownership. The ASF licenses this file
11# to you under the Apache License, Version 2.0 (the
12# "License"); you may not use this file except in compliance
13# with the License. You may obtain a copy of the License at
14#
15# http://www.apache.org/licenses/LICENSE-2.0
16#
17# Unless required by applicable law or agreed to in writing,
18# software distributed under the License is distributed on an
19# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
20# KIND, either express or implied. See the License for the
21# specific language governing permissions and limitations
22# under the License.
23#
24#**************************************************************
|
6#
7# This tool makes it easy to cleanly re-locate a
8# build, eg. after you have copied or moved it to a new
9# path. It tries to re-write all the hard-coded path logic
10# internally.
11#
12#*************************************************************************
| 25#
26# This tool makes it easy to cleanly re-locate a
27# build, eg. after you have copied or moved it to a new
28# path. It tries to re-write all the hard-coded path logic
29# internally.
30#
31#*************************************************************************
|
13#
14# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
15#
16# Copyright 2000, 2010 Oracle and/or its affiliates.
17#
18# OpenOffice.org - a multi-platform office productivity suite
19#
20# This file is part of OpenOffice.org.
21#
22# OpenOffice.org is free software: you can redistribute it and/or modify
23# it under the terms of the GNU Lesser General Public License version 3
24# only, as published by the Free Software Foundation.
25#
26# OpenOffice.org is distributed in the hope that it will be useful,
27# but WITHOUT ANY WARRANTY; without even the implied warranty of
28# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
29# GNU Lesser General Public License version 3 for more details
30# (a copy is included in the LICENSE file that accompanied this code).
31#
32# You should have received a copy of the GNU Lesser General Public License
33# version 3 along with OpenOffice.org. If not, see
34# <http://www.openoffice.org/license.html>
35# for a copy of the LGPLv3 License.
36#
37#*************************************************************************
| |
38
39sub sniff_set($)
40{
41 my $build_dir = shift;
42 my ($dirhandle, $fname);
43
44 opendir ($dirhandle, $build_dir) || die "Can't open $build_dir";
45 while ($fname = readdir ($dirhandle)) {
--- 188 unchanged lines hidden --- | 32
33sub sniff_set($)
34{
35 my $build_dir = shift;
36 my ($dirhandle, $fname);
37
38 opendir ($dirhandle, $build_dir) || die "Can't open $build_dir";
39 while ($fname = readdir ($dirhandle)) {
--- 188 unchanged lines hidden --- |