[gimp-perl] xach-lego2

[Ed J <edj src gnome org>]

commit 4726191ba5ce762f4453c05e23cee079daab872f
Author: Michele <michele gherlone liceoberchet it>
Date:   Wed May 28 23:50:38 2014 +0200

    xach-lego2
    
    Signed-off-by: Ed J <edj src gnome org>

 examples/xachlego |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)
---
diff --git a/examples/xachlego b/examples/xachlego
index bc30035..bd5baf1 100755
--- a/examples/xachlego
+++ b/examples/xachlego
@@ -8,6 +8,8 @@ use warnings;
 podregister {
   my $selection_flag = 0;
   $image->undo_group_start;
+  die "Not a layer\n" unless $drawable->is_layer;
+  $drawable->become('Gimp::Layer');
   $drawable->add_alpha unless $drawable->has_alpha;
   if ($image->selection_is_empty) {
     $image->selection_all;