Fix critic failure on double quoted string without interpolation

ledgersmb · Apr 25, 2021 · 0cd107f · 0cd107f
1 parent 50ce99e
commit 0cd107f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/LedgerSMB/Admin/Command/destroy.pm b/lib/LedgerSMB/Admin/Command/destroy.pm
@@ -49,7 +49,8 @@ sub run {
     my $dbh = $db->connect;
 
     # Scan databases which could be using the same profile
-    my $sth = $dbh->prepare("SELECT datname FROM pg_database WHERE NOT datistemplate");
+    my $sth =
+        $dbh->prepare('SELECT datname FROM pg_database WHERE NOT datistemplate');
 
     $sth->execute
         or die $dbh->errstr;