my $first = 1;
my $str = "";
- while (my ($key, $value) = each %$param) {
+ for my $key (sort keys %$param) {
+ my $value = $param->{$key};
next unless defined($value);
next if (defined($defparam->{$key}) && $value == $defparam->{$key});
my ($res, $mtime) = @_;
my $str = POSIX::strftime("%a, %d %b %Y %H:%M:%S GMT", gmtime($mtime));
- $res->headers({ 'Last-Modified' => $str });
+ $res->header('Last-Modified' => $str);
}
sub get_server_name {