[libnet-dbus-perl] 97/335: Make sure Net::DBus::Error stringifies

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch experimental
in repository libnet-dbus-perl.

commit ae392774cc8dd4bb81dd47a10af046673e26fff0
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Fri Sep 9 13:55:38 2005 +0000

    Make sure Net::DBus::Error stringifies
---
 lib/Net/DBus.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/Net/DBus.pm b/lib/Net/DBus.pm
index e2a788e..15675f6 100644
--- a/lib/Net/DBus.pm
+++ b/lib/Net/DBus.pm
@@ -410,6 +410,17 @@ sub _signal_func {
     return $handled;
 }
 
+package Net::DBus::Error;
+
+use overload ('""' => 'stringify');
+
+sub stringify {
+    my $self = shift;
+    
+    return $self->{name} . ": " . $self->{message};
+}
+    
+
 1;
 __END__
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git