Merge dbname2, host2, etc. into the new array method.

diff --git a/check_postgres.pl b/check_postgres.pl
index f68167ccea785a8db4b8d57ab6ccc3585f227ea0..a48e36fbabe54dfcaa71bb259c285355813c7db9 100755 (executable)
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -1001,22 +1001,22 @@ while (my $arg = pop @ARGV) {
     if ($arg =~ /^\-?\-?(\w+)\s*=\s*(.+)/o) {
         my ($name,$value) = (lc $1, $2);
         if ($name =~ /^(?:db)?port(\d+)$/o or $name =~ /^p(\d+)$/o) {
-            $opt{"port$1"} = $value;
+            push @{ $opt{port} } => $value;
         }
         elsif ($name =~ /^(?:db)?host(\d+)$/o or $name =~ /^H(\d+)$/o) {
-            $opt{"host$1"} = $value;
+            push @{ $opt{host} } => $value;
         }
         elsif ($name =~ /^db(?:name)?(\d+)$/o) {
-            $opt{"dbname$1"} = $value;
+            push @{ $opt{dbname} } => $value;
         }
         elsif ($name =~ /^dbuser(\d+)$/o or $name =~ /^u(\d+)/o) {
-            $opt{"dbuser$1"} = $value;
+            push @{ $opt{dbuser} } => $value;
         }
         elsif ($name =~ /^dbpass(\d+)$/o) {
-            $opt{"dbpass$1"} = $value;
+            push @{ $opt{dbpass} } => $value;
         }
         elsif ($name =~ /^dbservice(\d+)$/o) {
-            $opt{"dbservice$1"} = $value;
+            push @{ $opt{dbservice} } => $value;
         }
         else {
             push @badargs => $arg;