From 3d34ad22b0bbcf8d915a28f9c9afcefc0ab18c8db2046f615fd0ef8602f6ac44 Mon Sep 17 00:00:00 2001
From: Dirk Stoecker <opensuse@dstoecker.de>
Date: Fri, 13 Dec 2019 08:53:04 +0000
Subject: [PATCH] Accepting request 755251 from
 home:jbaier_cz:branches:devel:languages:perl

- Fix incorrect prefix removal in rpm macro %perl_gen_filelist (boo#1152247)

OBS-URL: https://build.opensuse.org/request/show/755251
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=186
---
 macros.perl  | 2 +-
 perl.changes | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

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>