#!/bin/bash
# Author: Alex Efros <powerman-asdf@yandex.ru>, 2009
# License: Public Domain
#
# perldoc: Wrapper for /usr/bin/perldoc with Russian support

VERSION="1.00"

if echo " $* " | grep -P ' -[hVtumnlTdoMw] |^  $' &>/dev/null; then
    exec /usr/bin/perldoc "$@"
fi

eval "last=\${$#}"
{ echo =pod; echo; /usr/bin/perldoc -u "$@"; } |
    enconv -x KOI8-R |
    pod2man |
    sed "s/<STANDARD INPUT>/$last/g" |
    nroff -Tlatin1 -c -mandoc |
    enconv |
    $PAGER