[check_postgres] [commit] More micro-optimizations.

[check_postgres at bucardo.org]

Committed by Greg Sabino Mullane <greg at endpoint.com>

More micro-optimizations.

---
 check_postgres.pl |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/check_postgres.pl b/check_postgres.pl
index d1bc4ab..52c0e13 100755
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -1025,7 +1025,7 @@ sub skip_item {
 	if (defined $opt{exclude}) {
 		$stat = 1;
 		for (@{$opt{exclude}}) {
-			for my $ex (split /\s*,\s*/ => $_) {
+			for my $ex (split /\s*,\s*/o => $_) {
 				if ($ex =~ s/\.$//) {
 					if ($ex =~ s/^~//) {
 						($stat += 2 and last) if $schema =~ /$ex/;
@@ -1046,7 +1046,7 @@ sub skip_item {
 	if (defined $opt{include}) {
 		$stat += 4;
 		for (@{$opt{include}}) {
-			for my $in (split /\s*,\s*/ => $_) {
+			for my $in (split /\s*,\s*/o => $_) {
 				if ($in =~ s/\.$//) {
 					if ($in =~ s/^~//) {
 						($stat += 8 and last) if $schema =~ /$in/;
@@ -1496,10 +1496,10 @@ ORDER BY wastedbytes DESC LIMIT $LIMIT
 		}
 		my $max = -1;
 		my $maxmsg = '?';
-	  SLURP: for (split /\n/ => $db->{slurp}) {
+	  SLURP: for (split /\n/o => $db->{slurp}) {
 			my ($schema,$table,$tups,$pages,$otta,$bloat,$wp,$wb,$ws,
-				$index,$irows,$ipages,$iotta,$ibloat,$iwp,$iwb,$iws)
-				= split /\s*\|\s*/;
+			 $index,$irows,$ipages,$iotta,$ibloat,$iwp,$iwb,$iws)
+				= split /\s*\|\s*/o;
 			$schema =~ s/^\s+//;
 			next SLURP if skip_item($table, $schema);
 			## Made it past the exclusions
-- 
1.5.5.4