videosite-dl: Fix environment proxy use

diff --git a/videosite-dl.pl b/videosite-dl.pl
index 257da2d..1b0079c 100755 (executable)
--- 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);
     }
 }