diff options
-rw-r--r-- | perl-install/standalone.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 40405c156..0fde47682 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -30,6 +30,12 @@ sub install { $ret; } +sub what_provides { + my ($o, $name) = @; + my ($what) = split '\n', `urpmq '$name' 2>/dev/null`; + split '\|', $what; +} + sub is_installed { my ($o, @l) = @_; system('rpm', '-q', @l) == 0; |