don't be greedy when trying to find end of eval{...}

This enables inserting { } into field after eval

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@384 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/parse_format.pm b/parse_format.pm
index 3f4d50d..6a9bfb8 100644 (file)
--- a/parse_format.pm
+++ b/parse_format.pm
@@ -56,7 +56,7 @@ sub parse_iso_format {
                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