if ( -f /tmp/podlist.txt ) then set podcomplete = ( 'n@*@`\cat /tmp/podlist.txt`@' ) else foreach d ( /usr/perl5 /usr/lib/perl5 /usr/local/perl5 /usr/local/lib/perl5 /mc/apps/perl/lib ) if ( -d "$d" ) then set podcomplete=( 'n@*@`\ls -1 '$d'/5.*/pod | sed s%\\.pod.\*\$%%`@' ) break endif end if ( -z "$podcomplete" ) then set podcomplete=( 'n@*@`\ls -1 /usr/lib/perl5/5.*/pod | sed s%\\.pod.\*\$%%`@' ) endif endif complete perldoc "${podcomplete}"