--- trunk/Fast.pm	2005/01/04 10:26:07	1
+++ trunk/Fast.pm	2005/10/08 16:33:09	5
@@ -7,7 +7,7 @@
 BEGIN {
 	use Exporter ();
 	use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-	$VERSION     = 0.01;
+	$VERSION     = 0.02;
 	@ISA         = qw (Exporter);
 	#Give a hoot don't pollute, do not export more than needed by default
 	@EXPORT      = qw ();
@@ -196,7 +196,11 @@
 		my $f = substr($fields,$addr,$len);
 		print STDERR "tag/len/addr $tag [$len] $addr: '$f'\n" if ($self->{debug});
 
-		$row->{$tag} = $f;
+		if ($row->{$tag}) {
+			$row->{$tag} .= $f;
+		} else {
+			$row->{$tag} = $f;
+		}
 
 		my $del = substr($fields,$addr+$len-1,1);