← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/ModPerl/MapUtil.pm

  • Committer: Bazaar Package Importer
  • Author(s): Andres Salomon
  • Date: 2005-08-12 01:40:38 UTC
  • mfrom: (1.1.2 upstream) (2.1.1 sarge)
  • Revision ID: james.westby@ubuntu.com-20050812014038-gjigefs55pqx4qc8
Tags: 2.0.1-3
Grr.  Really include perl.conf file; it got lost due to diff not
wanting to add an empty file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/ModPerl/MapUtil.pm
1
 
# Copyright 2001-2004 The Apache Software Foundation
 
1
# Copyright 2001-2005 The Apache Software Foundation
2
2
#
3
3
# Licensed under the Apache License, Version 2.0 (the "License");
4
4
# you may not use this file except in compliance with the License.
17
17
use strict;
18
18
use warnings;
19
19
use Exporter ();
20
 
use Apache::Build ();
 
20
use Apache2::Build ();
21
21
 
22
22
our @EXPORT_OK = qw(list_first disabled_reason
23
23
                    function_table structure_table
25
25
 
26
26
our @ISA = qw(Exporter);
27
27
 
 
28
# the mapping happens in lib/ModPerl/StructureMap.pm: sub parse
28
29
#    '<' => 'auto-generated but gives only a read-only access'
 
30
#    '&' => 'RDWR accessor to a char* field, supporting undef arg'
 
31
#    '$' => 'RONLY accessor, with WRITE accessor before child_init'
 
32
#    '%' => like $, but makes sure that for the write accessor the
 
33
#           original perl scalar can change or go away w/o affecting
 
34
#           the object
29
35
my %disabled_map = (
30
36
    '!' => 'disabled or not yet implemented',
31
37
    '~' => 'implemented but not auto-generated',
39
45
sub function_table {
40
46
    return $function_table if @$function_table;
41
47
    push @INC, "xs/tables/current";
42
 
    require Apache::FunctionTable;
 
48
    require Apache2::FunctionTable;
43
49
    require ModPerl::FunctionTable;
44
 
    @$function_table = (@$Apache::FunctionTable, @$ModPerl::FunctionTable);
 
50
    require APR::FunctionTable;
 
51
    @$function_table = (@$Apache2::FunctionTable, @$ModPerl::FunctionTable,
 
52
                        @$APR::FunctionTable);
45
53
    $function_table;
46
54
}
47
55
 
49
57
 
50
58
sub structure_table {
51
59
    return $structure_table if @$structure_table;
52
 
    require Apache::StructureTable;
53
 
    @$structure_table = (@$Apache::StructureTable);
 
60
    require Apache2::StructureTable;
 
61
    @$structure_table = (@$Apache2::StructureTable);
54
62
    $structure_table;
55
63
}
56
64
 
59
67
}
60
68
 
61
69
sub xs_glue_dirs {
62
 
    Apache::Build->build_config->mp_xs_glue_dir;
 
70
    Apache2::Build->build_config->mp_xs_glue_dir;
63
71
}
64
72
 
65
73
sub list_first (&@) {