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

« back to all changes in this revision

Viewing changes to t/response/TestModperl/subenv.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:
94
94
}
95
95
 
96
96
sub ok_true {
97
 
    my($r, $key) = @_;
 
97
    my ($r, $key) = @_;
98
98
 
99
99
    my $env = $r->subprocess_env;
100
100
    ok $env->get($key);
103
103
}
104
104
 
105
105
sub ok_false {
106
 
    my($r, $key) = @_;
 
106
    my ($r, $key) = @_;
107
107
 
108
108
    my $env = $r->subprocess_env;
109
109
    ok ! $env->get($key);