From 2ba19c144a7cdcc42c8bedc5400fce6b0a872415 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20Victor=20Duarte=20Martins?= Date: Mon, 17 May 2010 18:57:36 +0000 Subject: * mdkonline.pm: Added more missing use statements. (get_my_mdv_profile): Fixed subroutine call (readability only). --- mdkapplet-add-media-helper | 4 ---- mdkonline.pm | 9 ++++++--- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/mdkapplet-add-media-helper b/mdkapplet-add-media-helper index 3f0a4e17..c8d3c440 100755 --- a/mdkapplet-add-media-helper +++ b/mdkapplet-add-media-helper @@ -33,10 +33,6 @@ use mdkonline qw($product_id); use mdkapplet_gui; use urpm::cfg; -use XML::Simple; -use HTTP::Request::Common; -use HTTP::Request; - BEGIN { unshift @::textdomains, 'mdkonline' } # %product is keyed by product id and it contains the data to add 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 -- cgit v1.2.1