X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=ucw%2Fperl%2FUCW%2FCGI.pm;h=b90b8d2951b2380b657176e9955e7afe3f0428d4;hb=643dc4c0697865fbe124d814e736d64a456a5da2;hp=d2468b8fe48b121dd35fca862f5ebbc22d384a4d;hpb=ba1c173f544383aa6553a75dee6e6858d8f243a4;p=libucw.git

diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm
index d2468b8f..b90b8d29 100644
--- a/ucw/perl/UCW/CGI.pm
+++ b/ucw/perl/UCW/CGI.pm
@@ -191,7 +191,7 @@ sub init_args() {
 			exit;
 		}
 	} else {
-		http_error "405 Method Not Allowed", "Allow: GET, HEAD, PUT";
+		http_error "405 Method Not Allowed", "Allow: GET, HEAD, POST";
 	}
 }
 
@@ -204,7 +204,7 @@ sub parse_args($) {			# CAVEAT: attached files must be defined in the main arg t
 
 	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') {