clean_perl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/bin/sh

d=$RPM_BUILD_ROOT/usr/lib/perl5

[ -d $d ] || exit 0


find $d -name ".packlist" | xargs rm -f

for i in $(find $d -name "*.bs"); do
    if [ -s $i ]; then
      echo "non empty *.bs file, please mail pixel@mandrakesoft.com about this!"
    else
      rm -f $i
    fi
done