X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite-dl.pl;h=1b0079ca0b478e3aa2765f49c36bb553a3d16279;hb=3bcd25114d4e3ba793e2183743d779deef246a75;hp=257da2d1b69a3bb01553447ec424bf40a2e19666;hpb=9b4f91b4d23f20b26d3f00d299f7d37a19f9d427;p=videosite.git

diff --git a/videosite-dl.pl b/videosite-dl.pl
index 257da2d..1b0079c 100755
--- a/videosite-dl.pl
+++ b/videosite-dl.pl
@@ -49,14 +49,14 @@ sub ploader {
 }
 
 sub connectors {
-    my $c = {-name => 'environment', -schemas => {}};
+    my $c = {name => 'environment', schemas => {}};
 
     if (exists($ENV{'http_proxy'})) {
-        $c->{-schemas}->{'http'} = $ENV{'http_proxy'}
+        $c->{schemas}->{'http'} = $ENV{'http_proxy'}
     }
 
     if (exists($ENV{'https_proxy'})) {
-        $c->{-schemas}->{'https'} = $ENV{'https_proxy'}
+        $c->{schemas}->{'https'} = $ENV{'https_proxy'}
     }
 
     return ( $c );
@@ -90,10 +90,10 @@ unless(@g and defined($f)) {
 
 foreach (@g, $f) {
     $_->setio(sub { printf(@_); print("\n"); } );
+    $_->setconn(\&connectors);
 
     if ($debug) {
         $_->setdebug(1);
-        $_->setconn(\&connectors);
     }
 }