diff --git a/macros.perl b/macros.perl
index 1e634c3..78161e1 100644
--- a/macros.perl
+++ b/macros.perl
@@ -83,7 +83,7 @@ for dir in `find ${base_dir} -type d | sort`; do\
   if [ "$dir" = "${base_dir}" ]; then\
     continue\
   else\
-    el=`echo $dir | %{__awk} -F"${base_dir}" '{print $2}'`\
+    el=${dir#$base_dir}\
     all_dir=(${all_dir[@]} $el)\
   fi\
 done\
diff --git a/perl.changes b/perl.changes
index d651315..f5606cb 100644
--- a/perl.changes
+++ b/perl.changes
@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Mon Dec  9 13:50:36 UTC 2019 - Jan Baier <jbaier@suse.com>
+
+- Fix incorrect prefix removal in rpm macro %perl_gen_filelist (boo#1152247)
+
 -------------------------------------------------------------------
 Tue Dec  3 09:13:07 UTC 2019 - Martin Liška <mliska@suse.cz>