Skip to content
Permalink
Browse files

prevent perl warning

  • Loading branch information
joergsteffens committed Jun 21, 2017
1 parent 6dfd948 commit 49962a5e9c39ff71f57d05ac1f6f36dcde82ea29
Showing with 2 additions and 2 deletions.
  1. +2 −2 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;
}

0 comments on commit 49962a5

Please sign in to comment.
You can’t perform that action at this time.