diff options
| author | João Victor Duarte Martins <jvictor@mandriva.com> | 2010-05-17 18:57:36 +0000 |
|---|---|---|
| committer | João Victor Duarte Martins <jvictor@mandriva.com> | 2010-05-17 18:57:36 +0000 |
| commit | 2ba19c144a7cdcc42c8bedc5400fce6b0a872415 (patch) | |
| tree | b1c834b1bb6f571ffb34315e823851e73c1bf051 /mdkonline.pm | |
| parent | d62aa3737da4eaecb1dbd6fc42c3a268edddf024 (diff) | |
| download | mgaonline-2ba19c144a7cdcc42c8bedc5400fce6b0a872415.tar mgaonline-2ba19c144a7cdcc42c8bedc5400fce6b0a872415.tar.gz mgaonline-2ba19c144a7cdcc42c8bedc5400fce6b0a872415.tar.bz2 mgaonline-2ba19c144a7cdcc42c8bedc5400fce6b0a872415.tar.xz mgaonline-2ba19c144a7cdcc42c8bedc5400fce6b0a872415.zip | |
* mdkonline.pm: Added more missing use statements.
(get_my_mdv_profile): Fixed subroutine call (readability only).
Diffstat (limited to 'mdkonline.pm')
| -rw-r--r-- | mdkonline.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index 56f5b560..6c0659f6 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -31,6 +31,9 @@ use ugtk2; use LWP::UserAgent; use URI::Escape; +use XML::Simple; +use HTTP::Request::Common; +use HTTP::Request; our @ISA = qw(Exporter); our @EXPORT = qw(find_current_distro @@ -252,9 +255,9 @@ sub get_from { sub get_my_mdv_profile { my ($email, $password) = @_; - xml2perl(mdkonline::get_from('https://my.mandriva.com/rest/authenticate', - [ 'username', $email, 'password', $password, - 'return', 'userdata' ])); + xml2perl(get_from('https://my.mandriva.com/rest/authenticate', + [ 'username', $email, 'password', $password, + 'return', 'userdata' ])); } # callers need to require XML::Simple |