see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -7,6 +7,7 @@ Revision history for Gimp-Perl extension.
         - new module Gimp::Compat, which is loaded on demand.
         - gimp_text_fontname etc.. are now available in gimp-1.0 as well,
           re-enabled the scripts using it (and depending on 1.1 before).
+        - allow negative "INT32's".
 
 1.081 Thu May  6 19:33:37 CEST 1999
 	- added "oneliners".

plug-ins/perl/Gimp.pm

@@ -350,7 +350,7 @@ sub die_msg {
 
 # this needs to be improved
 sub quiet_die {
-   die "BE QUIET ABOUT THIS DIE\n";
+   die "IGNORE THIS MESSAGE\n";
 }
 
 unless ($no_SIG) {

plug-ins/perl/Gimp/Lib.xs

@@ -404,7 +404,7 @@ convert_array2paramdef (AV *av, GParamDef **res)
 	    SV *type = 0;
 	    SV *name = 0;
 	    SV *help = 0;
-	
+
 	    if (SvROK (sv) && SvTYPE (SvRV (sv)) == SVt_PVAV)
 	      {
 	        AV *av = (AV *)SvRV(sv);
@@ -598,7 +598,8 @@ static int check_int (char *croak_str, SV *sv)
 
       if (*p
           && *p != '0' && *p != '1' && *p != '2' && *p != '3' && *p != '4'
-          && *p != '5' && *p != '6' && *p != '7' && *p != '8' && *p != '9')
+          && *p != '5' && *p != '6' && *p != '7' && *p != '8' && *p != '9'
+          && *p != '-')
         {
           sprintf (croak_str, "Expected an INT32 but got '%s'. Add '*1' if you really intend to pass in a string", p);
           check_for_typoe (croak_str, p);
@@ -969,7 +970,7 @@ static void pii_run(char *name, int nparams, GParam *param, int *xnreturn_vals,
       
       if (SvTRUE (ERRSV))
 	{
-	   if (strEQ ("BE QUIET ABOUT THIS DIE\n", SvPV (ERRSV, dc)))
+	   if (strEQ ("IGNORE THIS MESSAGE\n", SvPV (ERRSV, dc)))
 	     {
 	       nreturn_vals = 0;
 	       return_vals = g_new (GParam, 1);

plug-ins/perl/Gimp/Net.pm

@@ -253,7 +253,7 @@ sub gimp_main {
    gimp_init;
    no strict 'refs';
    eval { Gimp::callback("-net") };
-   if($@ && $@ ne "BE QUIET ABOUT THIS DIE\n") {
+   if($@ && $@ ne "IGNORE THIS MESSAGE\n") {
       Gimp::logger(message => substr($@,0,-1), fatal => 1, function => 'DIE');
       gimp_end;
       -1;

plug-ins/perl/examples/terral_text

@@ -53,6 +53,13 @@ sub {
 	$oldbg = gimp_palette_get_background();
 	$oldfg = gimp_palette_get_foreground();
 
+  Gimp->install_procedure("plug_in_example_oo", "a test plug-in in perl",
+                         "try it out", "Marc Lehmann", "Marc Lehmann", "1998-04-27",
+                         "<Toolbox>/Xtns/Perl Example Plug-in", "*", &PROC_EXTENSION,
+                         
+                         [[0, "run_mode", "desc"]],
+                         
+                         []);
 
 
 	if ($solidnoise) {