MFB 'L' size support

diff --git a/ext/dbase/dbf_head.c b/ext/dbase/dbf_head.c
index 54c638dd1c9ea07f7382adf9408db0589be537d0..d3a7d1d6047e35ef5ffb8233407e5becd0c03630 100644 (file)
--- a/ext/dbase/dbf_head.c
+++ b/ext/dbase/dbf_head.c
@@ -157,7 +157,10 @@ int get_dbf_field(dbhead_t *dbh, dbfield_t *dbf)
                        dbf->db_flen = dbfield.dbf_flen[0];
                        dbf->db_fdc = dbfield.dbf_flen[1];
                        break;
-               case 'D':
+           case 'L':
+                       dbf->db_flen = 1;
+                       break;
+           case 'D':
                        dbf->db_flen = 8;
                        break;
            default: