Base: fix typo

diff --git a/videosite/Base.pm b/videosite/Base.pm
index be0272e..923585a 100644 (file)
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -12,7 +12,7 @@ sub new {
     my $class = shift;
     my $self = {'_DEBUG' => 0,
                 '_CONNECTOR' => undef,
-                API => {
+                _API => {
                     io => sub { printf(@_) },
                     connectors => sub { return ({ 'name' => 'direct',
                                                   'schemas' => {} }) },