diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2008-02-25 21:05:24 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2008-02-25 21:05:24 +0000 |
commit | 5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3 (patch) | |
tree | 4cf9c648a8275a7aa2855c10aaa73c574aa15f86 | |
parent | f3dd5972ec4f943f0b3a0e5504aa9cefa3a7c561 (diff) | |
download | perl-URPM-5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3.tar perl-URPM-5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3.tar.gz perl-URPM-5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3.tar.bz2 perl-URPM-5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3.tar.xz perl-URPM-5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3.zip |
since ->filename is deprecated, do not use it, esp where not needed
-rw-r--r-- | URPM/Build.pm | 3 |
1 files changed, 0 insertions, 3 deletions
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); } |