prevent perl warning

bareos · Jun 21, 2017 · 49962a5 · 49962a5
1 parent 6dfd948
commit 49962a5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/scripts/functions.pm b/scripts/functions.pm
@@ -215,7 +215,7 @@ sub update_client
     open(FP, "$conf/bareos-dir.conf") or die "can't open source $!";
     open(NEW, ">$tmp/bareos-dir.conf.$$") or die "can't open dest $!";
     while (my $l = <FP>) {
-        if (!$in_client && $l =~ /^Client {/) {
+        if (!$in_client && $l =~ /^Client \{/) {
             $in_client=1;
         }
 
@@ -396,7 +396,7 @@ sub add_attribute
             next;
         }
 
-        if ($l =~ /^(\w+) {/) {
+        if ($l =~ /^(\w+) \{/) {
             $cur_obj = $1;
             $done=0;
         }