[gimp-perl] Allow ->existing with literal.

[Ed J <edj src gnome org>]

commit 4ea2b558cf84f1d9dc77c350f4ff322c3e6ee445
Author: Ed J <edj src gnome org>
Date:   Mon May 19 00:55:17 2014 +0100

    Allow ->existing with literal.

 Gimp.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/Gimp.pm b/Gimp.pm
index 522e1ab..ecc3d1a 100644
--- a/Gimp.pm
+++ b/Gimp.pm
@@ -380,7 +380,7 @@ sub new($$$$)               { shift; [ _] }
 {
 package Gimp::Base;
 use overload '""' => sub { ref($_[0]).'->existing('.${$_[0]}.')'; };
-sub existing($$)       { bless \$_[1], $_[0]; }
+sub existing($$)       { my $id = $_[1]; bless \$id, $_[0]; }
 sub become($$)         { bless $_[0], $_[1]; }
 }