#!/bin/sh
sqlite3 "$REPOCOP_TEST_TMPDIR/tmp.db" <<EOSQL
attach database '$REPOCOP_TEST_DBDIR/rpm.db' as rpm;
.mode tabs
.output $REPOCOP_TEST_TMPDIR/msg
select distinct a.pkgid from rpm_files as a, rpm as b where a.pkgid=b.pkgid and filename glob '/usr/lib/perl5/*-linux/*' and arch='noarch'  and filemode & 16384=0;
EOSQL
for i in `cat $REPOCOP_TEST_TMPDIR/msg`; do repocop-test-fail -k $i "package contains files in perl arch-dependent location while package is noarch."; done
rm $REPOCOP_TEST_TMPDIR/*
