From 9b1a2a99675691579335e9c341ec58c00546329d Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 7 Jul 2004 20:58:58 +0000 Subject: [PATCH] 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 --- parse_format.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/parse_format.pm b/parse_format.pm index 3f4d50d..6a9bfb8 100644 --- 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 -- 2.20.1