From 40ed541fca8c2200c7c72f07f701dfc8681952c4 Mon Sep 17 00:00:00 2001
From: "Glenn Y. Rolland" <glenn.rolland@bewan.com>
Date: Tue, 9 Nov 2010 11:15:09 +0100
Subject: [PATCH] xtmheader: Fix variable length records (for name).

---
 xtmfile/xtmheader.rb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xtmfile/xtmheader.rb b/xtmfile/xtmheader.rb
index e719bde..0f00b2a 100644
--- a/xtmfile/xtmheader.rb
+++ b/xtmfile/xtmheader.rb
@@ -26,8 +26,8 @@ class XtmHeader < BinData::Record
 	uint32le :date
 
 	uint8 :filename_len
-	stringz :filename_str, :length => 50
-	string :filename_str_pad, :length => lambda { 50 - filename_len - 1 }
+	string :filename_str, :read_length => :filename_len
+	string :filename_str_pad, :read_length => lambda { 50 - filename_len }
 
 	uint8 :md5