diff --git a/plug-ins/perl/Gimp/Lib.xs b/plug-ins/perl/Gimp/Lib.xs
index a6b91c729d..4db50af6b8 100644
--- a/plug-ins/perl/Gimp/Lib.xs
+++ b/plug-ins/perl/Gimp/Lib.xs
@@ -1470,7 +1470,7 @@ gimp_query_procedure(proc_name)
 		    &proc_copyright, &proc_date, &proc_type, &nparams, &nreturn_vals,
 		    &params, &return_vals) == TRUE)
 		  {
-                    EXTEND (sp,8);
+                    EXTEND (SP,8);
                     PUSHs (newSVpv (proc_blurb,0));	g_free (proc_blurb);
 		    PUSHs (newSVpv (proc_help,0));	g_free (proc_help);
 		    PUSHs (newSVpv (proc_author,0));	g_free (proc_author);
@@ -1733,13 +1733,13 @@ gimp_color_cube()
 char *
 gimp_directory()
 
-char *
-gimp_data_directory()
-
 char *
 gimp_gtkrc()
 
 #ifdef GIMP11
+char *
+gimp_data_directory()
+
 SV *
 gimp_personal_rc_file(basename)
 	char *	basename
diff --git a/plug-ins/perl/Makefile.PL b/plug-ins/perl/Makefile.PL
index 36bafa1616..70427d78eb 100644
--- a/plug-ins/perl/Makefile.PL
+++ b/plug-ins/perl/Makefile.PL
@@ -5,7 +5,7 @@ use Config;
 $|=1;
 
 @examples =
-   qw(windy.pl prep4gif.pl webify.pl PDB alpha2color.pl tex-to-float ditherize.pl
+   qw(windy.pl prep4gif.pl webify.pl PDB tex-to-float ditherize.pl
       border.pl view3d.pl feedback.pl xachlego.pl xachshadow.pl parasite-editor
       scratches.pl blowinout.pl terral_text xachvision.pl perlcc gouge
       sethspin.pl animate_cells image_tile yinyang stamps font_table