From 23ad6e0322b0b6b9e1d88b8a2db208312840ff68 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Mon, 2 Jun 2008 17:46:03 +0200
Subject: bin/pkg: pkg_doc: Check for perldoc

---
 bin/pkg | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'bin/pkg')

diff --git a/bin/pkg b/bin/pkg
index 7afe3e6..e449973 100755
--- a/bin/pkg
+++ b/bin/pkg
@@ -297,7 +297,13 @@ pkg_changelog () {
 
 pkg_doc () {
 	# FIXME this sucks
-	[ -r $PDIR/*/doc/$1 ] && less $PDIR/*/doc/$1
+	if ([ -r $PDIR/*/doc/$1 ]) {
+		less $PDIR/*/doc/$1
+	} elif ([ -x $PDIR/*/bin/$1 ]) {
+		if (file $PDIR/*/bin/$1 | grep 'perl script text executable' &> /dev/null) {
+			perldoc $PDIR/*/bin/$1
+		}
+	}
 }
 
 check_sed
-- 
cgit v1.2.3