← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/response/TestModperl/cookie2.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/TestModperl/cookie2.pm
14
14
    my $r = shift;
15
15
 
16
16
    $r->subprocess_env if $r->args eq 'subprocess_env';
17
 
    my($key, $val) = cookie($r);
 
17
    my ($key, $val) = cookie($r);
18
18
    die "I shouldn't get the cookie" if $r->args eq 'env' && defined $val;
19
19
 
20
20
    return Apache2::Const::OK;
23
23
sub handler {
24
24
    my $r = shift;
25
25
 
26
 
    my($key, $val) = cookie($r);
 
26
    my ($key, $val) = cookie($r);
27
27
    $r->print($val) if defined $val;
28
28
 
29
29
    return Apache2::Const::OK;