diff --git a/apps/drbd/local/mode/resources.pm b/apps/drbd/local/mode/resources.pm
index 2e1a4df37..b9646aa09 100644
--- a/apps/drbd/local/mode/resources.pm
+++ b/apps/drbd/local/mode/resources.pm
@@ -371,9 +371,9 @@ disk-status:
 
 =over 4
 
-[unknown] %{disk_status} =~ /dunknown/i'
+[unknown] %{disk_status} =~ /dunknown/i
 
-[warning] %{disk_status} =~ /attaching|detaching|negotiating/i'
+[warning] %{disk_status} =~ /attaching|detaching|negotiating/i
 
 [critical] %{disk_status} =~ /outdated|inconsistent|failed|diskless/i
 
diff --git a/database/postgres/mode/tablespace.pm b/database/postgres/mode/tablespace.pm
index 2140bcb94..81dff916c 100644
--- a/database/postgres/mode/tablespace.pm
+++ b/database/postgres/mode/tablespace.pm
@@ -70,16 +70,16 @@ sub manage_selection {
     $options{sql}->query(query => 'SELECT spcname, pg_tablespace_size(spcname) FROM pg_tablespace');
 
     $self->{tablespaces} = {};
-    while (my $row = $options{sql}->fetchrow_array()) {
+    while (my @row = $options{sql}->fetchrow_array()) {
         if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
-            $row->[0] !~ /$self->{option_results}->{filter_name}/) {
+            $row[0] !~ /$self->{option_results}->{filter_name}/) {
             $self->{output}->output_add(long_msg => "skipping tablespace '" . $row->[0] . "': no matching filter.", debug => 1);
             next;
         }
 
-        $self->{tablespaces}->{ $row->[0] } = {
-            display => $row->[0],
-            space_used => $row->[1]
+        $self->{tablespaces}->{ $row[0] } = {
+            display => $row[0],
+            space_used => $row[1]
         };
     }
 }