1 files changed, 4 insertions, 0 deletions
diff --git a/urpm.pm b/urpm.pm
index e19cc745..34745d7a 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -210,6 +210,10 @@ sub blist_to_urls {
     my ($blist) = @_;
     _blist_pkg_to_urls($blist, values %{$blist->{pkgs}});
 }
+sub blist_to_filenames {
+    my ($blist) = @_;
+    map { $_->filename } values %{$blist->{pkgs}};
+}
 
 sub protocol_from_url {
     my ($url) = @_;