diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-07-19 13:44:54 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-07-19 13:44:54 +0000 |
| commit | 9363a72ed0e96b72bc3906465ba078b554bd6529 (patch) | |
| tree | 2f4684b2a32eabbfafb66998881b137fdca2926b | |
| parent | 08487a418aa40f0ed1b1c3dd098022556f315af4 (diff) | |
| download | drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.tar drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.tar.gz drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.tar.bz2 drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.tar.xz drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.zip | |
added what_provides.
| -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; |