From 1a8e216b62644a003e0ee4530841a0147d5f4edb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Feb 2008 13:44:26 +0000
Subject: create is_local_medium() and is_local_url()

---
 urpm.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index 85345f66..7699d33c 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -14,7 +14,7 @@ use urpm::md5sum;
 
 our $VERSION = '5.6';
 our @ISA = qw(URPM Exporter);
-our @EXPORT_OK = 'file_from_local_url';
+our @EXPORT_OK = ('file_from_local_url', 'is_local_medium');
 
 use URPM;
 use URPM::Resolve;
@@ -200,6 +200,14 @@ sub file_from_local_url {
     my ($url) = @_;
     $url =~ m!^(?:removable[^:]*:/|file:/)?(/.*)! && $1;
 }
+sub is_local_url {
+    my ($url) = @_;
+    file_from_local_url($url);
+}
+sub is_local_medium {
+    my ($medium) = @_;
+    is_local_url($medium->{url});
+}
 
 sub db_open_or_die {
     my ($urpm, $root, $b_write_perm) = @_;
-- 
cgit v1.2.1