Fixed warnings in $c->request->param and $c->request->upload

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index d8b69b2..da5e8d8 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -189,7 +189,7 @@ sub param {
         }
     }
 
-    if ( @_ => 2  ) {
+    if ( @_ > 1  ) {
 
         while ( my ( $field, $value ) = splice( @_, 0, 2 ) ) {
 
@@ -283,7 +283,7 @@ sub upload {
         }
     }
 
-    if ( @_ => 2 ) {
+    if ( @_ > 1 ) {
 
         while ( my ( $field, $upload ) = splice( @_, 0, 2 ) ) {