[gimp-perl] Stringify Gimp::Parasite right.
- From: Ed J <edj src gnome org>
 
- To: commits-list gnome org
 
- Cc: 
 
- Subject: [gimp-perl] Stringify Gimp::Parasite right.
 
- Date: Mon, 26 May 2014 06:36:13 +0000 (UTC)
 
commit 5b26d4216b0f5452050ca2fa7323e8426e3212cf
Author: Ed J <edj src gnome org>
Date:   Mon May 26 07:35:29 2014 +0100
    Stringify Gimp::Parasite right.
 Gimp.pm |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)
---
diff --git a/Gimp.pm b/Gimp.pm
index f0eb6d8..97e663b 100644
--- a/Gimp.pm
+++ b/Gimp.pm
@@ -373,6 +373,7 @@ sub compare($$)             { $_[0]->[0] eq $_[1]->[0] and
                          $_[0]->[1] eq $_[1]->[1] and
                          $_[0]->[2] eq $_[1]->[2] }
 sub new($$$$)          { shift; [ _] }
+use overload '""' => sub { ref($_[0])."->new([ {[ join ', ', @{$_[0]} ]}])"; };
 }
 
 {
[
Date Prev][
Date Next]   [
Thread Prev][
Thread Next]   
[
Thread Index]
[
Date Index]
[
Author Index]