[gimp-perl] Fix string2pf losing %arg for drawable.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Fix string2pf losing %arg for drawable.
- Date: Wed, 18 Jun 2014 20:20:03 +0000 (UTC)
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;
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]