Base: Add module name to error and debug output

[videosite.git] / videosite / Base.pm

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 93ac841..855cb47 100644 (file)
--- 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 {