regress: fix extract_resource

diff --git a/regress/scripts/functions.pm b/regress/scripts/functions.pm
index bfabe110494beefc782d41c8182a4a08548fdf61..d5a0244eea935324e0ef0b48b2c0d100aead68e3 100644 (file)
--- a/regress/scripts/functions.pm
+++ b/regress/scripts/functions.pm
@@ -98,7 +98,7 @@ sub extract_resource
     open(FP, $file) or die "Can't open $file";
     my $content = join("", <FP>);
     
-    if ($content =~ m/(^$type {.+?Name\s*=\s*"?$name"?.+?^})/ms) {
+    if ($content =~ m/(^$type {[^}]+?Name\s*=\s*"?$name"?[^}]+?^})/ms) {
         print $1, "\n";
     }