use bsd_glob instead of glob in func build_package

On openSuse 12.2 with perl 5.16 there is 'Segmentation fault'
caused by multithreads while running a depanneur

diff --git a/depanneur b/depanneur
index 158fdc983e638462494dce7da8d6a4d582b39095..016009718eedecd4994184bbc7ae954a0bba09f7 100755 (executable)
--- a/depanneur
+++ b/depanneur
@@ -22,7 +22,7 @@ use File::Path;
 use File::Basename;
 use URI;
 use POSIX ":sys_wait_h";
-
+use File::Glob ':glob';
 # Global vars
 
 
@@ -853,10 +853,10 @@ sub build_package {
     $cmd = join(" ", @args);
     debug($cmd);
     if (my_system ($cmd) == 0 ) {
-        if (glob "$scratch/home/abuild/rpmbuild/SRPMS/*.rpm") {
+        if (bsd_glob "$scratch/home/abuild/rpmbuild/SRPMS/*.rpm") {
             my_system ("cp $scratch/home/abuild/rpmbuild/SRPMS/*.rpm $localrepo/$dist/src/SRPMS");
         }
-        if (glob "$scratch/home/abuild/rpmbuild/RPMS/*/*.rpm") {
+        if (bsd_glob "$scratch/home/abuild/rpmbuild/RPMS/*/*.rpm") {
             my_system ("cp $scratch/home/abuild/rpmbuild/RPMS/*/*.rpm $localrepo/$dist/$arch/RPMS");
         }
         mkdir_p "$localrepo/$dist/$arch/logs/success/$name-$version-$release";