diff options
author | Dirk von Suchodoletz | 2008-12-17 23:59:06 +0100 |
---|---|---|
committer | Dirk von Suchodoletz | 2008-12-17 23:59:06 +0100 |
commit | beab87b40820270616d0f2995ab0295ee3f567a4 (patch) | |
tree | df33bfd762b9f73bbd2a199ebc2522420ca9ddb5 /lib/OpenSLX/Utils.pm | |
parent | I should have checked that in a more advanced fashion :) (diff) | |
download | core-beab87b40820270616d0f2995ab0295ee3f567a4.tar.gz core-beab87b40820270616d0f2995ab0295ee3f567a4.tar.xz core-beab87b40820270616d0f2995ab0295ee3f567a4.zip |
..
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2434 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/Utils.pm')
-rw-r--r-- | lib/OpenSLX/Utils.pm | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm index 8b3754bf..109bec6a 100644 --- a/lib/OpenSLX/Utils.pm +++ b/lib/OpenSLX/Utils.pm @@ -668,7 +668,6 @@ Returns the path of a binary it is installed in. sub pathOf { my $binary = shift; - return qx{which $binary 2>/dev/null}; } @@ -681,23 +680,10 @@ Returns whether a binary is found. sub isInPath { my $binary = shift; - my $path = pathOf($binary); return $path ? 1 : 0; } -=item B<isPackInstalled()> - -Check whether a certain package is installed. Could be refined somehow to use -the package mechanism of the given distribution!? - -=cut - -sub isPackInstalled -{ - my $pack = shift; - return isInPath($pack); -} 1; |