From 65e9c38d45f493187a15394b61aa41377aa0de5f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Nov 2006 15:53:01 +0000
Subject: use standard Exporter

---
 urpm/download.pm | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

(limited to 'urpm/download.pm')

diff --git a/urpm/download.pm b/urpm/download.pm
index 7655c141..f860064f 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -7,6 +7,14 @@ use urpm::msg;
 use urpm::cfg;
 use urpm::util;
 use Cwd;
+use Exporter;
+
+our @ISA = 'Exporter';
+our @EXPORT = qw(get_proxy
+	propagate_sync_callback
+	sync_file sync_wget sync_curl sync_rsync sync_ssh
+	set_proxy_config dump_proxy_config
+);
 
 (our $VERSION) = q($Revision$) =~ /(\d+)/;
 
@@ -17,18 +25,6 @@ my $proxy_config;
 #- Timeout for curl connection and wget operations
 our $CONNECT_TIMEOUT = 60; #-  (in seconds)
 
-sub import () {
-    my $c = caller;
-    no strict 'refs';
-    foreach my $symbol (qw(get_proxy
-	propagate_sync_callback
-	sync_file sync_wget sync_curl sync_rsync sync_ssh
-	set_proxy_config dump_proxy_config
-    )) {
-	*{$c . '::' . $symbol} = *$symbol;
-    }
-}
-
 #- parses proxy.cfg (private)
 sub load_proxy_config () {
     return if defined $proxy_config;
-- 
cgit v1.2.1