- my $schemas = $video->{'CONNECTOR'}->{'schemas'};
- foreach (keys(%{$schemas})) {
- $self->debug("Setting %s_proxy to %s", $_, $schemas->{$_});
- $ENV{ $_.'_proxy'} = $schemas->{$_};
- }
+ my $schemas = $video->{'CONNECTOR'}->{'schemas'};
+ foreach my $schemakey(keys(%{$schemas})) {
+ $self->debug("Setting %s_proxy to %s", $schemakey, $schemas->{$schemakey});
+ my $envkey = $schemakey.'_proxy';
+ $saved_env{ $envkey } = $ENV{ $envkey };
+ $ENV{ $envkey } = $schemas->{$schemakey};
+ }