- Fix subroutine ref

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 2db4969..cad4374 100644 (file)
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -23,7 +23,7 @@ sub error {
 
     $t = sprintf(shift(@_), @_);
     $t =~ s/%/%%/g;
-    $self->{'_OUT'}->($t);
+    $self->{'_OUT'}($t);
 }
 
 sub debug {