--- branches/hidra/parse_format.pm	2004/09/21 16:40:46	457
+++ branches/hidra/parse_format.pm	2004/09/21 16:53:44	458
@@ -56,7 +56,7 @@
 		my $f = $format;
 
 		my $eval;
-		$eval = $1 if ($f =~ s/^eval{([^}]+)}//);
+		$eval = $1 if ($f =~ s/^eval{([^}]+?)}//);
 
 		if ($f =~ s/^([^\d]+)//) {
 			if ($f) {	# there is more to parse