From 0a04025a47ab63c8bbe84c921c141e57469d2f9c Mon Sep 17 00:00:00 2001
From: Bogdano Arendartchuk <bogdano@mandriva.org>
Date: Tue, 2 Mar 2010 14:51:24 +0000
Subject: work around the change in recent perl-URPM versions that do not
 return the real filename of the rpm, it breaks SVN.pm checks in a 2009.1
 system

---
 lib/Youri/Package/URPM.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Youri/Package/URPM.pm b/lib/Youri/Package/URPM.pm
index d2b2360..ad3a265 100644
--- a/lib/Youri/Package/URPM.pm
+++ b/lib/Youri/Package/URPM.pm
@@ -128,7 +128,7 @@ sub get_file_name {
     my ($self) = @_;
     croak "Not a class method" unless ref $self;
 
-    return $self->{_header}->filename();
+    return $self->{_file} || die "_file is not defined in header-only objects!\n";
 }
 
 sub get_arch {
-- 
cgit v1.2.1