From 05fa914dcc1edf6aba1a8b047c458aab7f2f7d8e Mon Sep 17 00:00:00 2001
From: Ralf Ertzinger <ralf@skytale.net>
Date: Wed, 8 Jun 2011 20:39:24 +0200
Subject: [PATCH] Base: Add module name to error and debug output

---
 videosite/Base.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 93ac841..855cb47 100644
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -23,9 +23,11 @@ sub new {
 
 sub error {
     my $self = shift;
-    my $t;
+    my @data = @_;
+
+    $data[0] = "(" . ref($self) . ") " . $data[0];
 
-    $self->{'_OUT'}(@_);
+    $self->{'_OUT'}(@data);
 }
 
 sub debug {
-- 
1.8.3.1