← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy-updates

« back to all changes in this revision

Viewing changes to lib/ModPerl/TypeMap.pm

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2004-08-19 06:23:48 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040819062348-jxl4koqbtvgm8v2t
Tags: 1.99.14-4
Remove the LFS CFLAGS, and build-dep against apache2-*-dev (>= 2.0.50-10)
as we're backing out of the apache2/apr ABI transition.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/ModPerl/TypeMap.pm
 
1
# Copyright 2001-2004 The Apache Software Foundation
 
2
#
 
3
# Licensed under the Apache License, Version 2.0 (the "License");
 
4
# you may not use this file except in compliance with the License.
 
5
# You may obtain a copy of the License at
 
6
#
 
7
#     http://www.apache.org/licenses/LICENSE-2.0
 
8
#
 
9
# Unless required by applicable law or agreed to in writing, software
 
10
# distributed under the License is distributed on an "AS IS" BASIS,
 
11
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 
12
# See the License for the specific language governing permissions and
 
13
# limitations under the License.
 
14
#
1
15
package ModPerl::TypeMap;
2
16
 
3
17
use strict;
279
293
        my($name, $type) = ($e->{name}, $e->{type});
280
294
        my $rtype;
281
295
 
282
 
        next unless $self->structure_map->{$stype}->{$name};
 
296
        # ro/rw/undef(disabled)
 
297
        my $access_mode = $self->structure_map->{$stype}->{$name};
 
298
        next unless $access_mode;
283
299
        next unless $rtype = $self->map_type($type);
284
300
 
285
301
        push @elts, {
286
 
           name    => $name,
287
 
           type    => $rtype,
288
 
           default => $self->null_type($type),
289
 
           pool    => $self->class_pool($class),
290
 
           class   => $self->{map}->{$type} || "",
 
302
           name        => $name,
 
303
           type        => $rtype,
 
304
           default     => $self->null_type($type),
 
305
           pool        => $self->class_pool($class),
 
306
           class       => $self->{map}->{$type} || "",
 
307
           access_mode => $access_mode,
291
308
        };
292
309
    }
293
310