dhb Fix of a segfault. The clear() function would execute triggering

[bacula/bacula] / bacula / examples / conf / fileset_convert.pl

diff --git a/bacula/examples/conf/fileset_convert.pl b/bacula/examples/conf/fileset_convert.pl
index f39a00d2ba764274e088a683527929d2fcb86670..87950d34f1240a82896c0c08622bd67c76698caf 100755 (executable)
--- a/bacula/examples/conf/fileset_convert.pl
+++ b/bacula/examples/conf/fileset_convert.pl
@@ -23,9 +23,12 @@ $in =~ s/Include\s*=\s*((?:\w+=\w+\s+)*){\s*((?:.*?\n)+?)\s*}/
   "Include { " . 
   ( $1 ? options($1) : '' ) . "\n" .
   file_lines($2) .
-  "\n  }\n" /eg;
+  "\n  }" /eg;
+
+$in =~ s/Exclude\s*=\s*{\s*}/
+  "Exclude { }"/eg;
 
 $in =~ s/Exclude\s*=\s*{\s*((?:.*?\n)+?)\s*}/
-  "Exclude {\n" . file_lines($1) . "\n  }\n"/eg;
+  "Exclude {\n" . file_lines($1) . "\n  }"/eg;
 
 print $in;