# list context can be dangerous so warn:
	# http://blog.gerv.net/2014.10/new-class-of-vulnerability-in-perl-web-applications
	if ( wantarray && $LIST_CONTEXT_WARN ) {
		my ( $package, $filename, $line ) = caller;
		if ( $package ne 'CGI' ) {
			warn "CGI::param called in list context from package $package line $line, this can lead to vulnerabilities. "
				. 'See the warning in "Fetching the value or values of a single named parameter"';
		}
	}