From 5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Feb 2008 21:05:24 +0000 Subject: since ->filename is deprecated, do not use it, esp where not needed --- URPM/Build.pm | 3 --- 1 file changed, 3 deletions(-) (limited to 'URPM/Build.pm') diff --git a/URPM/Build.pm b/URPM/Build.pm index 78942b9..153bee6 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -80,7 +80,6 @@ sub parse_rpms_build_headers { my $pkg = $urpm->{depslist}[$id]; $filename = $pkg->fullname; - "$filename.rpm" eq $pkg->filename or $filename .= ":$key"; unless (-s "$dir/$filename") { open my $fh, ">$dir/$filename" or die "unable to open $dir/$filename for writing\n"; @@ -435,8 +434,6 @@ sub build_hdlist { ) or die "Can't create archive"; foreach my $pkg (@{$urpm->{depslist}}[@idlist]) { my $filename = $pkg->fullname; - "$filename.rpm" ne $pkg->filename && $pkg->filename =~ m!([^/]*)\.rpm$! - and $filename .= ":$1"; -s "$dir/$filename" or die "bad header $dir/$filename\n"; $pack->add($dir, $filename); } -- cgit v1.2.1