[gimp-perl] Stringify Gimp::Parasite right.



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]