- my ($self, $key, $value) = @_;
- $key =~ tr/_/-/;
- if ($PLP::sentheaders) {
- my @caller = caller;
- die "Can't set headers after sending them at " .
- "$caller[1] line $caller[2].\n(Output started at " .
- "$PLP::sentheaders->[0] line $PLP::sentheaders->[1].)\n"
- }
- if (defined $self->[1]->{lc $key}){
- $key = $self->[1]->{lc $key};
- } else {
- $self->[1]->{lc $key} = $key;
- }
- return ($self->[0]->{$key} = $value);
+ my ($self, $key, $value) = @_;
+ $key =~ tr/_/-/;
+ if ($PLP::sentheaders) {
+ my @caller = caller;
+ die "Can't set headers after sending them at " .
+ "$caller[1] line $caller[2].\n(Output started at " .
+ "$PLP::sentheaders->[0] line $PLP::sentheaders->[1].)\n"
+ }
+ if (defined $self->[1]->{lc $key}){
+ $key = $self->[1]->{lc $key};
+ } else {
+ $self->[1]->{lc $key} = $key;
+ }
+ return ($self->[0]->{$key} = $value);