mirror of
https://github.com/adferrand/docker-backuppc.git
synced 2023-11-05 04:40:26 +01:00
36 lines
1.3 KiB
Diff
36 lines
1.3 KiB
Diff
diff --git a/configure.pl b/configure.pl
|
|
index 6826ebc..d5deef5 100755
|
|
--- a/configure.pl
|
|
+++ b/configure.pl
|
|
@@ -668,7 +668,7 @@ if ( defined($Conf{CgiUserConfigEdit}) ) {
|
|
if ( defined($Conf{CgiUserConfigEdit}{$p}) );
|
|
}
|
|
$Conf{CgiUserConfigEdit} = $new;
|
|
- my $d = Data::Dumper->new([$new], [*value]);
|
|
+ my $d = Data::Dumper->new([$new]);
|
|
$d->Indent(1);
|
|
$d->Terse(1);
|
|
$d->Sortkeys(1);
|
|
diff --git a/lib/BackupPC/Storage/Text.pm b/lib/BackupPC/Storage/Text.pm
|
|
index e9df664..09fcb24 100644
|
|
--- a/lib/BackupPC/Storage/Text.pm
|
|
+++ b/lib/BackupPC/Storage/Text.pm
|
|
@@ -422,7 +422,7 @@ sub ConfigFileMerge
|
|
my $var = $1;
|
|
$skipExpr = "\$fakeVar = $2\n";
|
|
if ( exists($newConf->{$var}) ) {
|
|
- my $d = Data::Dumper->new([$newConf->{$var}], [*value]);
|
|
+ my $d = Data::Dumper->new([$newConf->{$var}]);
|
|
$d->Indent(1);
|
|
$d->Terse(1);
|
|
$d->Sortkeys(1);
|
|
@@ -454,7 +454,7 @@ sub ConfigFileMerge
|
|
#
|
|
foreach my $var ( sort(keys(%$newConf)) ) {
|
|
next if ( $done->{$var} );
|
|
- my $d = Data::Dumper->new([$newConf->{$var}], [*value]);
|
|
+ my $d = Data::Dumper->new([$newConf->{$var}]);
|
|
$d->Indent(1);
|
|
$d->Terse(1);
|
|
$d->Sortkeys(1);
|