--- trunk/parse_format.pm	2004/07/07 17:34:42	381
+++ trunk/parse_format.pm	2004/07/07 20:58:58	384
@@ -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