← Back to branch summary

~ubuntu-branches/ubuntu/maverick/kaptain/maverick

« back to all changes in this revision

Viewing changes to admin/config.pl

  • Committer: Bazaar Package Importer
  • Author(s): Tobias Toedter
  • Date: 2008-05-30 09:14:40 UTC
  • mfrom: (3.1.4 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080530091440-hkj713cgx4nxytp6
Tags: 1:0.72-2
* Use hardening-wrapper on m68k as well
* Remove DM upload rights
* Change maintainer e-mail address

Show diffs side-by-side

added added

removed removed

Lines of Context:
admin/config.pl
12
12
#
13
13
# written by Michael Matz <matz@kde.org>
14
14
# adapted by Dirk Mueller <mueller@kde.org>
15
 
#
16
 
# the first part was done by looking at the config.status files generated
17
 
# by configure.
18
 
# 
 
15
 
 
16
#   This file is free software; you can redistribute it and/or
 
17
#   modify it under the terms of the GNU Library General Public
 
18
#   License as published by the Free Software Foundation; either
 
19
#   version 2 of the License, or (at your option) any later version.
 
20
 
 
21
#   This library is distributed in the hope that it will be useful,
 
22
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
 
23
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
24
#   Library General Public License for more details.
 
25
 
 
26
#   You should have received a copy of the GNU Library General Public License
 
27
#   along with this library; see the file COPYING.LIB.  If not, write to
 
28
#   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 
29
#   Boston, MA 02111-1307, USA.
19
30
 
20
31
my $ac_subs=$ARGV[0];
21
32
my $ac_sacfiles = $ARGV[1];
41
52
if ($bad_perl) {
42
53
    print "Using perl older than version 5.005\n";
43
54
    foreach my $pat (@subs) {
44
 
        if (  ($pat =~ /s%([^%]*)%([^%]*)%g/ )
45
 
           || ($pat =~ m%/([^/]*)/([^/]*)/g% )
46
 
           || ($pat =~ /s%([^%]*)%([^%]*)%;t/ )
47
 
           || ($pat =~ m%/([^/]*)/([^/]*)/;t% )
48
 
           || ($pat =~ /s,([^,]*),(.*),;t/)
 
55
        if (  ($pat =~ m/s%([^%]*)%([^%]*)%g/ )
 
56
           || ($pat =~ m/s%([^%]*)%([^%]*)%;t/ )
 
57
           || ($pat =~ m/s,([^,]*),(.*),;t/)
 
58
           || ($pat =~ m%s/([^/]*)/([^/]*)/g% )
 
59
           || ($pat =~ m%s/([^/]*)/([^/]*)/;t% )
49
60
           ) {
50
61
            # form : s%bla%blubb%g
51
62
            # or     s%bla%blubb%;t t   (autoconf > 2.13 and < 2.52 ?)
168
179
}
169
180
 
170
181
sub patch_file {
171
 
    my ($outf, $infiles, $firstline) = @_;
 
182
    my ($outf, $infiles, $identline) = @_;
172
183
    my $filedata;
173
184
    my @infiles=split(' ', $infiles);
174
185
    my $i=0;
175
186
 
176
 
    if ($firstline) {
177
 
        $filedata = $firstline;
178
 
    }
179
187
    foreach my $name (@infiles) {
180
188
        if (open(CF, "< $name")) {
181
189
            while (<CF>) {
186
194
            print STDERR "can't open $name: $!"."\n";
187
195
        }
188
196
    }
 
197
    if ($identline) {
 
198
        # Put the ident in the second line.  For shitty automake 1.6x.
 
199
        $filedata =~ s%\n%\n$identline%;
 
200
    }
189
201
 
190
202
    $filedata =~ s%\@configure_input\@%$configure_input%g;
191
203
    $filedata =~ s%\@srcdir\@%$srcdir%g;