| 214 | | } |
| 215 | | |
| 216 | | =pod |
| 217 | | |
| 218 | | =head2 C<pwhich> |
| 219 | | |
| 220 | | # Find the prove utility |
| 221 | | my $prove = Padre::Util::pwhich('prove'); |
| 222 | | |
| 223 | | The C<pwhich> function discovers the path to the installed Perl script |
| 224 | | which is in the same installation directory as the Perl user to run |
| 225 | | Padre itself, ignoring the regular search C<PATH>. |
| 226 | | |
| 227 | | Returns the locally-formatted path to the script, or false (null string) |
| 228 | | if the utility does not exist in the current Perl installation. |
| 229 | | |
| 230 | | =cut |
| 231 | | |
| 232 | | sub pwhich { |
| 233 | | my $bin = 1; |
