Report nano warning only once

Author: Tux

ChangeLog

@@ -1,4 +1,4 @@
-0.58	- 2021-02-09, H.Merijn Brand
+0.58	- 2021-02-10, H.Merijn Brand
     * It's 2021
     * "class" is not a CSV attribute to pass on (issue#8)
 

t/51_commit.t

@@ -15,11 +15,13 @@ my @tbl_def = (
     [ "name", "CHAR",    64, 0 ],
     );
 
+my $nano_msg = "SQL::Nano does not support count (*)";
 sub RowCount {
     my ($dbh, $tbl) = @_;
 
     if ($nano) {
-	diag ("SQL::Nano does not support count (*)");
+	$nano_msg and diag ($nano_msg);
+	$nano_msg = "";
 	return 0;
 	}