perl error

[flipz79]

Can anyone help what is wrong with the following code and how to fix it?

$r->no_cache(1);
my $x = length($form);
$r->content_type("text/html");
$r->headers_out->set("Content-length","$x")
$r->headers_out->set("Pragma", "no-cache");
unless (MP2) {
$r->send_http_header;
}

 

[stevexff]

What problem/symptoms are you getting?

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[flipz79]

something is wrong with the code and i believe its because i'm missing a semicolon on line 4!

 

[KevinADC]

this line doesn't look correct either:

unless (MP2) {

what is 'MP2' ?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[stevexff]

Is MP2 a perl constant? I've never used one, but I think they might look like that. The semi-colon should certainly be there on line 4. Have you tried putting one in?

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[ishnid]

. . . and what kind of an object is $r?