fix multiple Global symbol requires explicit package name outputs

geändert:       lib/FHEM/backupToStorage.pm
This commit is contained in:
Marko Oldenburg 2020-06-17 14:54:48 +02:00
parent e0ac3b68e5
commit c7a9155495
2 changed files with 9 additions and 5 deletions

View File

@ -1,2 +1,2 @@
UPD 2020-06-17_12:01:37 3338 FHEM/98_backupToStorage.pm UPD 2020-06-17_12:01:37 3338 FHEM/98_backupToStorage.pm
UPD 2020-06-17_14:48:22 9932 lib/FHEM/backupToStorage.pm UPD 2020-06-17_14:54:41 10040 lib/FHEM/backupToStorage.pm

View File

@ -111,7 +111,7 @@ sub Delete {
} }
sub Shutdown { sub Shutdown {
$hash = shift; my $hash = shift;
HttpUtils_Close( $hash->{helper}->{HttpUtilsParam} ) HttpUtils_Close( $hash->{helper}->{HttpUtilsParam} )
if ( $hash->{helper}->{HttpUtilsParam} ); if ( $hash->{helper}->{HttpUtilsParam} );
@ -250,6 +250,7 @@ sub ncUpload {
timeout => AttrVal( $name, 'btS_UploadTimeout', 30 ), timeout => AttrVal( $name, 'btS_UploadTimeout', 30 ),
method => 'PUT', method => 'PUT',
data => $cont, data => $cont,
hash => $hash,
user => $ncUser, user => $ncUser,
pwd => $ncPass, pwd => $ncPass,
callback => \&FHEM::backup::ncUploadCb, callback => \&FHEM::backup::ncUploadCb,
@ -266,6 +267,9 @@ sub ncUploadCb {
my $err = shift; my $err = shift;
my $data = shift; my $data = shift;
my $hash = $param->{hash};
my $name = $hash->{NAME};
Log( 1, 'backup URL: ' . $param->{url} ); Log( 1, 'backup URL: ' . $param->{url} );
Log( 1, 'backup User: ' . $param->{user} ); Log( 1, 'backup User: ' . $param->{user} );
Log( 1, 'backup Pass: ' . $param->{pwd} ); Log( 1, 'backup Pass: ' . $param->{pwd} );