--- find-provides.orig	Fri Nov 24 18:51:28 2000
+++ find-provides	Fri Nov 24 22:28:31 2000
@@ -91,7 +91,7 @@
 {
 	local f="$1"
 	local t="$2"
-	if [ -z "${t/$f: perl script text*/}" ]; then
+	if [ -z "${t/$f: perl script text*/}" -o -z "${f/*.p[lmh]/}" ]; then
 		if [ -n "$FIND_PERL" ]; then
 			/usr/lib/rpm/perl.prov "$f"
 		fi
@@ -129,7 +129,7 @@
 
 while IFS= read -r f; do
 	if t="$(file -L "$f")"; then
-		if [ -z "${t/$f: * script text*/}" ]; then
+		if [ -z "${t/$f: * text*/}" ]; then
 			FOUND_PROVS="$FOUND_PROVS
 $(FindScriptProvs "$f" "$t")"
 		elif [ -z "${t/$f: * shared object*/}" ]; then
--- find-requires.orig	Fri Nov 24 18:51:39 2000
+++ find-requires	Fri Nov 24 22:28:21 2000
@@ -115,7 +115,7 @@
 		if [ -n "$FIND_SHELL" ]; then
 			/usr/lib/rpm/shell.req "$f"
 		fi
-	elif [ -z "${t/$f: perl script text*/}" ]; then
+	elif [ -z "${t/$f: perl script text*/}" -o -z "${f/*.p[lmh]/}" ]; then
 		if [ -n "$FIND_PERL" ]; then
 			/usr/lib/rpm/perl.req "$f"
 		fi
@@ -164,7 +164,7 @@
 
 while IFS= read -r f; do
 	t="$(file "$f")"
-	if [ -z "${t/$f: * script text*/}" ]; then
+	if [ -z "${t/$f: * text*/}" ]; then
 		FOUND_REQS="$FOUND_REQS
 $(FindScriptReqs "$f" "$t")"
 	elif [ -z "${t/$f: * executable*/}" ]; then