Try perldoc before perldoc -f, so this command now works for package …

…names (e.g., 'Carp'). Packages with '::' in their names need to be selected first.

git-svn-id: http://svn.textmate.org/trunk/Bundles/Perl.tmbundle@7119 dfb7d73b-c2ec-0310-8fea-fb051d288c6d

Commands/Perldoc on Word.plist

@@ -6,7 +6,7 @@
 	<string>nop</string>
 	<key>command</key>
 	<string>word=${TM_SELECTED_TEXT:-$TM_CURRENT_WORD}
-perldoc -u -f "$word" 2&gt;/dev/null | pod2html --q --title "Perl Documentation - $word" 2&gt;/dev/null | sed -E 's|&lt;a href="#(item_)?([^"]+)"&gt;|&lt;a href="http://perldoc.perl.org/search.html?q=\2"&gt;|g'
+(perldoc -u "$word" 2&gt;/dev/null || perldoc -u -f "$word" 2&gt;/dev/null) | pod2html --q --title "Perl Documentation - $word" 2&gt;/dev/null | sed -E 's|&lt;a href="#(item_)?([^"]+)"&gt;|&lt;a href="http://perldoc.perl.org/search.html?q=\2"&gt;|g'
 if [[ -e "${TM_DIRECTORY}/pod2htmd.tmp" ]]
   then unlink "${TM_DIRECTORY}/pod2htmd.tmp"
 fi