From: Ralf Ertzinger <ralf@skytale.net>
Date: Wed, 8 Jun 2011 18:39:24 +0000 (+0200)
Subject: Base: Add module name to error and debug output
X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=videosite.git;a=commitdiff_plain;h=05fa914dcc1edf6aba1a8b047c458aab7f2f7d8e

Base: Add module name to error and debug output
---

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 {