From 49962a5e9c39ff71f57d05ac1f6f36dcde82ea29 Mon Sep 17 00:00:00 2001
From: Joerg Steffens <joerg.steffens@bareos.com>
Date: Wed, 21 Jun 2017 08:23:41 +0200
Subject: [PATCH] prevent perl warning

---
 scripts/functions.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/functions.pm b/scripts/functions.pm
index dbc4210..99d1ee7 100644
--- 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;
         }