Cope with very small commodity lists.

[ypp-sc-tools.db-live.git] / pctb / yppsc-commod-processor

diff --git a/pctb/yppsc-commod-processor b/pctb/yppsc-commod-processor
index 5e4e03d59a6068d32d8866efde84682491720448..0e1a7d0d0399a81d7502cf29d6099b2ee0797cbb 100755 (executable)
--- a/pctb/yppsc-commod-processor
+++ b/pctb/yppsc-commod-processor
@@ -148,7 +148,10 @@ sub main__arbitrage () {
     }
     my $allprofit;
 
-    return unless @arbs;
+    if (!@arbs) {
+       print "No arbitrage opportunities.\n" or die $!;
+       return;
+    }
     my $bigdiv= <<END;
 =============+=========================+=========================+=============
 END