diff options
author | Sebastian Schmelzer | 2008-12-17 20:14:03 +0100 |
---|---|---|
committer | Sebastian Schmelzer | 2008-12-17 20:14:03 +0100 |
commit | 8b7c2434d0555d86cd505b25b4839a7cb1a2940f (patch) | |
tree | 53d26cf39dd90b5a6fefb119a08f2452007382b2 /lib/OpenSLX/Utils.pm | |
parent | Further simplification for certain plugin actions (hopefully) ... (diff) | |
download | core-8b7c2434d0555d86cd505b25b4839a7cb1a2940f.tar.gz core-8b7c2434d0555d86cd505b25b4839a7cb1a2940f.tar.xz core-8b7c2434d0555d86cd505b25b4839a7cb1a2940f.zip |
* fix (hopefully)
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2429 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/Utils.pm')
-rw-r--r-- | lib/OpenSLX/Utils.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm index 9686a152..8b3754bf 100644 --- a/lib/OpenSLX/Utils.pm +++ b/lib/OpenSLX/Utils.pm @@ -36,6 +36,7 @@ $VERSION = 1.01; hostIs64Bit getAvailableBusyboxApplets grabLock + isPackInstalled pathOf isInPath ); =head1 NAME @@ -666,7 +667,6 @@ Returns the path of a binary it is installed in. sub pathOf { - my $self = shift; my $binary = shift; return qx{which $binary 2>/dev/null}; @@ -680,10 +680,9 @@ Returns whether a binary is found. sub isInPath { - my $self = shift; my $binary = shift; - my $path = $self->pathOf($binary); + my $path = pathOf($binary); return $path ? 1 : 0; } @@ -697,9 +696,8 @@ the package mechanism of the given distribution!? sub isPackInstalled { - my $self = shift; my $pack = shift; - return $self->isInPath($pack); + return isInPath($pack); } 1; |