Merge pull request #21 from plicease-pr/graham/list-util

use List::Util instead of List::MoreUtils for any and none
nigelhorne · Jan 10, 2025 · d8343da · d8343da
2 parents 100e0fa + 34a7a7d
commit d8343da
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -59,7 +59,7 @@ WriteMakefile(
 		'File::Spec' => 3.4,
 		'Cwd' => 0,
 		'Socket' => 0,
-		'List::MoreUtils' => 0,
+		'List::Util' => 1.33,
 		'HTTP::BrowserDetect' => 3.10,	# Include bingbot
 		'File::Basename' => 0,
 		'String::Clean::XSS' => 0,

diff --git a/lib/CGI/Info.pm b/lib/CGI/Info.pm
@@ -13,7 +13,7 @@ use 5.008;
 use Log::Any qw($log);
 # use Cwd;
 # use JSON::Parse;
-use List::MoreUtils;	# Can go when expect goes
+use List::Util ();	# Can go when expect goes
 # use Sub::Private;
 use Sys::Path;
 
@@ -752,7 +752,7 @@ sub params {
 			}
 		}
 
-		if($self->{expect} && (List::MoreUtils::none { $_ eq $key } @{$self->{expect}})) {
+		if($self->{expect} && (List::Util::none { $_ eq $key } @{$self->{expect}})) {
 			next;
 		}
 		$value = _sanitise_input($value);
@@ -1434,7 +1434,7 @@ sub is_robot {
 			'http://www.seokicks.de/robot.html',
 		);
 		$referrer =~ s/\\/_/g;
-		if(($referrer =~ /\)/) || (List::MoreUtils::any { $_ =~ /^$referrer/ } @crawler_lists)) {
+		if(($referrer =~ /\)/) || (List::Util::any { $_ =~ /^$referrer/ } @crawler_lists)) {
 			$self->_debug("is_robot: blocked trawler $referrer");
 
 			if($self->{cache}) {