===================================================================
RCS file: /cvs/pta/pta.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- pta/pta.pl	2020/09/27 14:35:34	1.1
+++ pta/pta.pl	2020/09/29 20:29:42	1.2
@@ -554,7 +554,7 @@ for my $cc (sort keys %cclist) {
 
 # --- Global list of profits and losses. -------------------------------
 
-if ($opt_p) {
+if ($opt_p && %ptot) {
 	my $pr = 0;
 	my $capital = 0;
 	my $maxd = 0;