500a208fa3
The content of this branch was automatically imported from Fedora ELN with the following as its source: https://src.fedoraproject.org/rpms/perl#f36ef6bc94783b6bfd8b4017d7c2a7b66ef15460
12 lines
320 B
Bash
Executable File
12 lines
320 B
Bash
Executable File
#!/bin/bash
|
|
for P in "$@"; do
|
|
echo "Empty directories in RPM package $P:"
|
|
|
|
for D in $(rpm -qlvp "$P" | \
|
|
perl -ne \
|
|
'if (/\Adrwx/) {$n=${[split /\s+/]}[8]; print qq{$n\n}}' | \
|
|
sort -f); do
|
|
test $(rpm -qlp "$P" | grep -c -F "$D/") == 0 && echo "$D";
|
|
done
|
|
done
|