From 472bbc1140f1de0124ad9d17c9a76dbe51bf23a5 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Tue, 16 Oct 2012 15:20:10 +0200
Subject: [PATCH] UCW::CGI: Use "//=" to simplify code

This patch and the previous one have been suggested by Tomas Malecek.
---
 ucw/perl/UCW/CGI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm
index afb3c76f..b90b8d29 100644
--- a/ucw/perl/UCW/CGI.pm
+++ b/ucw/perl/UCW/CGI.pm
@@ -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') {
-- 
2.39.2