SOURCES: mysqltuner.patch - todo (quite obvious one)

[Radoslaw Zielinski]

Przemyslaw Iskra <sparky at pld-linux.org> [02-12-2008 00:39]:
> On Mon, Dec 01, 2008 at 11:46:04PM +0100, glen wrote:
>> +TODO: cook perlish which(), or hardcode
> should be enough:

> sub which($)
> {
>         my $file = shift || return undef;
>         foreach my $dir ( split /:/, ( $ENV{PATH} || return undef ) ) {

use File::Spec ();
foreach my $dir ( File::Spec->path ) {

>                 my $path = $dir . '/' . $file;

my $path = File::Spec->catfile( $dir, $file );

-- 
Radosław Zieliński <radek at pld-linux.org>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
Url : /mailman/pipermail/pld-devel-en/attachments/20081202/832e78e1/attachment.asc