X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FBase.pm;h=001ec56a55081a60dc4e6e1e9d8b2562f297f3bb;hb=b929656189ab5eeb2e8378bb7f3299ef9597a5a1;hp=5381911fdddc62f2d1ea09c4b6bbcb69a3490858;hpb=7c348bce55d63b4a3b9798dd29603e0a84996e6f;p=videosite.git

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 5381911..001ec56 100644
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -12,8 +12,8 @@ sub new {
     my $class = shift;
     my $self = {'_DEBUG' => 0,
                 '_OUT' => sub {printf(@_)},
-                '_CONNECTORS' => sub { return ({ -name => 'direct',
-                                                 -schemas => {} }) },
+                '_CONNECTORS' => sub { return ({ 'name' => 'direct',
+                                                 'schemas' => {} }) },
                 '_CONNECTOR' => undef,
                };
     
@@ -187,7 +187,7 @@ sub ua {
     delete($ENV{'HTTPS_PROXY'});
 
     if (defined($self->{'_CONNECTOR'})) {
-        my $schemas = $self->{'_CONNECTOR'}->{-schemas};
+        my $schemas = $self->{'_CONNECTOR'}->{'schemas'};
         foreach (keys(%{$schemas})) {
             $self->debug("Adding schema %s with proxy %s", $_, $schemas->{$_});
             if ($_ eq 'https') {