get #commodmap# filename right

diff --git a/pctb/yppsc-decode-marketdata b/pctb/yppsc-decode-marketdata
index 969ada0aa6e6f769c8c559b1f0df8648d46a0b19..b0935894576f1f4a6f7ca95564fd9f37fa5845aa 100755 (executable)
--- a/pctb/yppsc-decode-marketdata
+++ b/pctb/yppsc-decode-marketdata
@@ -2,7 +2,7 @@
 
 use IO::Handle;
 
 
 use IO::Handle;
 

-open CM, "commodmap" or die $!;
+open CM, "#commodmap#.tsv" or die $!;

 while (<CM>) {
     m/^(\S.*\S)\t(\d+)$/ or die;
     $commodmap[$2]= $1;
 while (<CM>) {
     m/^(\S.*\S)\t(\d+)$/ or die;
     $commodmap[$2]= $1;