fix rotten regexp eval

-Yosh

ChangeLog

+Mon May  3 14:03:35 PDT 1999 Manish Singh <yosh@gimp.org>
+
+	* app/gimage_cmds.c
+	* tools/pdbgen/pdb/gimage.pdb: fix rotten regexp eval
+	
 Mon May  3 21:44:27 BST 1999  Austin Donnelly  <austin@gimp.org>
 
 	* app/palette.c: put up messages telling user about corrupted

app/gimage_cmds.c

@@ -2653,7 +2653,7 @@ image_set_component_active_invoker (Argument *args)
     
       if (success)
 	gimage_set_component_active (gimage, component, active);
-     }
+    }
 
   return procedural_db_return_args (&image_set_component_active_proc, success);
 }
@@ -2795,7 +2795,7 @@ image_set_component_visible_invoker (Argument *args)
     
       if (success)
 	gimage_set_component_visible (gimage, component, visible);
-     }
+    }
 
   return procedural_db_return_args (&image_set_component_visible_proc, success);
 }

tools/pdbgen/pdb/gimage.pdb

@@ -1065,7 +1065,7 @@ CODE1
     \$invoke{code}
 CODE
 	$comp_arg;
-	\$invoke{code} =~ s/}/\$code}/e;
+	\$invoke{code} =~ s/}/"\$code}"/e;
 	\$invoke{code} =~ s/ component_$_/ component, $_/;
 	\$inargs[2]->{name} = '$_';
 	\$inargs[2]->{desc} = 'Component is $_ (%%desc%%)';

tools/pdbgen/pdb/image.pdb

@@ -1065,7 +1065,7 @@ CODE1
     \$invoke{code}
 CODE
 	$comp_arg;
-	\$invoke{code} =~ s/}/\$code}/e;
+	\$invoke{code} =~ s/}/"\$code}"/e;
 	\$invoke{code} =~ s/ component_$_/ component, $_/;
 	\$inargs[2]->{name} = '$_';
 	\$inargs[2]->{desc} = 'Component is $_ (%%desc%%)';