[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]