[gimp-perl] Slight tidy-ups of previous!

[Ed J <edj src gnome org>]

commit db53151c1d2388e50680397017e4774197368dec
Author: Ed J <edj src gnome org>
Date:   Fri May 30 01:01:12 2014 +0100

    Slight tidy-ups of previous!

 examples/glowing_steel |    2 +-
 examples/warp-sharp    |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/examples/glowing_steel b/examples/glowing_steel
index 888f0ca..0873e2a 100644
--- a/examples/glowing_steel
+++ b/examples/glowing_steel
@@ -203,7 +203,7 @@ sub perl_fu_highlight_edges {
     }
   }
 
- $image->select_item(CHANNEL_OP_REPLACE, $drawable);
+  $image->select_item(CHANNEL_OP_REPLACE, $drawable);
   my $white = $drawable->copy(0);
   my $black = $drawable->copy(0);
   my $lnum = $image->get_item_position($drawable);
diff --git a/examples/warp-sharp b/examples/warp-sharp
index cb7973f..ef50637 100755
--- a/examples/warp-sharp
+++ b/examples/warp-sharp
@@ -9,7 +9,7 @@ podregister {
   my $drawable_width=$drawable->width;
   my $drawable_height=$drawable->height;
   my $drawable_type=($drawable->type);
-  my $edge_layer = $drawable->layer_copy(0);
+  my $edge_layer = $drawable->copy(0);
   my $x_displace_layer=
     $image->layer_new($drawable_width, $drawable_height,
                    $drawable_type, "Displace X", 100, 0);