# Poor Man's CGI Module for Perl
#
-# (c) 2002--2010 Martin Mares <mj@ucw.cz>
+# (c) 2002--2011 Martin Mares <mj@ucw.cz>
# Slightly modified by Tomas Valla <tom@ucw.cz>
#
# This software may be freely distributed and used according to the terms
exit;
}
} else {
- http_error "405 Method Not Allowed", "Allow: GET, HEAD, PUT";
+ http_error "405 Method Not Allowed", "Allow: GET, HEAD, POST";
}
}
for my $a (values %$args) {
my $r = ref($a->{'var'});
- defined($a->{'default'}) or $a->{'default'}="";
+ $a->{'default'} //= '';
if ($r eq 'SCALAR') {
${$a->{'var'}} = $a->{'default'};
} elsif ($r eq 'ARRAY') {