← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/response/TestDirective/perlloadmodule3.pm

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2006-03-24 02:48:44 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20060324024844-73oxqkcj2jmlmh2t
Tags: 2.0.2-2build1
Fake sync to bring in new upstream bugfixes, UVF exception by mdz.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/response/TestDirective/perlloadmodule3.pm
34
34
sub SERVER_MERGE { merge(@_) }
35
35
 
36
36
sub set_val {
37
 
    my($key, $self, $parms, $arg) = @_;
 
37
    my ($key, $self, $parms, $arg) = @_;
38
38
    $self->{$key} = $arg;
39
39
    unless ($parms->path) {
40
40
        my $srv_cfg = Apache2::Module::get_config($self, $parms->server);
43
43
}
44
44
 
45
45
sub push_val {
46
 
    my($key, $self, $parms, $arg) = @_;
 
46
    my ($key, $self, $parms, $arg) = @_;
47
47
    push @{ $self->{$key} }, $arg;
48
48
    unless ($parms->path) {
49
49
        my $srv_cfg = Apache2::Module::get_config($self, $parms->server);
52
52
}
53
53
 
54
54
sub merge {
55
 
    my($base, $add) = @_;
 
55
    my ($base, $add) = @_;
56
56
 
57
57
    my %mrg = ();
58
58
    for my $key (keys %$base, %$add) {
93
93
}
94
94
 
95
95
sub handler {
96
 
    my($r) = @_;
 
96
    my ($r) = @_;
97
97
    my %secs = ();
98
98
 
99
99
    $r->content_type('text/plain');