[gimp-perl] Fix string2pf losing %arg for drawable.

[Ed J <edj src gnome org>]

commit 7bcab050b7fec4a0a5bce66d53fe674805cf9974
Author: Ed J <edj src gnome org>
Date:   Wed Jun 18 21:17:58 2014 +0100

    Fix string2pf losing %arg for drawable.

 Gimp/Fu.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/Gimp/Fu.pm b/Gimp/Fu.pm
index 7135aab..ea6b70a 100644
--- a/Gimp/Fu.pm
+++ b/Gimp/Fu.pm
@@ -164,10 +164,10 @@ sub string2pf($$) {
       if ((my $arg) = $s =~ /%(.+)/) {
         if ($arg eq 'a') {
            $latest_image->get_active_drawable;
-        } elsif ((my $file, $arg) = $arg =~ /(.*):(\d+)/) {
+        } elsif (my ($file, $subarg) = $arg =~ /(.*):(\d+)/) {
            $latest_imagefile = $file;
            $latest_image = Gimp->file_load(Gimp::RUN_NONINTERACTIVE, $file, $file),
-           ($latest_image->get_layers)[$arg]->become('Gimp::Drawable');
+           ($latest_image->get_layers)[$subarg]->become('Gimp::Drawable');
         } else {
            die "Drawable % argument not integer\n"
               unless $arg eq int $arg;