diff --git a/plug-ins/perl/examples/colourtoalpha b/plug-ins/perl/examples/colourtoalpha
index 8a710fd1b4..deb3cdc40f 100755
--- a/plug-ins/perl/examples/colourtoalpha
+++ b/plug-ins/perl/examples/colourtoalpha
@@ -21,7 +21,7 @@ register "colour_to_alpha",
          sub {					# es folgt das eigentliche Skript...
    my($image,$drawable,$colour)=@_;
 
-   $drawable->layer or die "colour_to_alpha only works with layers\n";
+   $drawable->is_layer or die "colour_to_alpha only works with layers\n";
    $drawable->add_alpha unless $drawable->has_alpha;
 
    Gimp->progress_init ("Replacing colour...");
diff --git a/plug-ins/perl/examples/ditherize.pl b/plug-ins/perl/examples/ditherize.pl
index 24b019c890..cb33c2f136 100755
--- a/plug-ins/perl/examples/ditherize.pl
+++ b/plug-ins/perl/examples/ditherize.pl
@@ -35,7 +35,7 @@ register "plug_in_ditherize",
          sub {
    my($image,$drawable,$colours)=@_;
 
-   $drawable->layer or die "this plug-in only works for layers";
+   $drawable->is_layer or die "this plug-in only works for layers";
 
    # make sure somehting is selected
    $drawable->mask_bounds or $image->selection_all;
diff --git a/plug-ins/perl/examples/fire b/plug-ins/perl/examples/fire
index 8c83a1d948..977318320c 100755
--- a/plug-ins/perl/examples/fire
+++ b/plug-ins/perl/examples/fire
@@ -8,7 +8,7 @@ sub fire {
 
    my ($w,$h) = ($drawable->width, $drawable->height);
 
-   $drawable->layer or die "sorry, this function needs to call functions that work only for layers :(\n";
+   $drawable->is_layer or die "sorry, this function needs to call functions that work only for layers :(\n";
 
    $image->undo_push_group_start;
    $drawable->wind($threshold, 0, $strength, 0, 1);