Better arg count checking

nigelhorne · Nov 1, 2023 · c64030d · c64030d
1 parent a30ad77
commit c64030d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for CGI-Info
 
+0.79
+	Better arg count checking
+
 0.78	Fri Oct  6 13:59:51 EDT 2023
 	Set HTTP status to 403 on HTTP_USER_AGENT SQL injection attack
 	Test::Exception hasn't been used for sometime, so removed dependancy

diff --git a/lib/CGI/Info.pm b/lib/CGI/Info.pm
@@ -857,7 +857,7 @@ sub _warn {
 		%params = %{$_[0]};
 	} elsif(scalar(@_) % 2 == 0) {
 		%params = @_;
-	} else {
+	} elsif(scalar(@_) == 1) {
 		$params{'warning'} = shift;
 	}
 
@@ -1606,7 +1606,7 @@ sub get_cookie {
 		%params = %{$_[0]};
 	} elsif(scalar(@_) % 2 == 0) {
 		%params = @_;
-	} else {
+	} elsif(scalar(@_) == 1) {
 		$params{'cookie_name'} = shift;
 	}
 
@@ -1712,7 +1712,7 @@ sub set_logger {
 		%params = %{$_[0]};
 	} elsif(scalar(@_) % 2 == 0) {
 		%params = @_;
-	} else {
+	} elsif(scalar(@_) == 1) {
 		$params{'logger'} = shift;
 	}