diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-02-25 21:05:54 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-02-25 21:05:54 +0000 |
| commit | 6a403de56919705fe48d83dc2bcdb93f14a591e1 (patch) | |
| tree | 7de6a0bc0d559f6329071e3225c7c745d2d17f5d | |
| parent | 7077fd62b83c597bbf4723352e8277329319cc12 (diff) | |
| download | perl-URPM-6a403de56919705fe48d83dc2bcdb93f14a591e1.tar perl-URPM-6a403de56919705fe48d83dc2bcdb93f14a591e1.tar.gz perl-URPM-6a403de56919705fe48d83dc2bcdb93f14a591e1.tar.bz2 perl-URPM-6a403de56919705fe48d83dc2bcdb93f14a591e1.tar.xz perl-URPM-6a403de56919705fe48d83dc2bcdb93f14a591e1.zip | |
since ->filename is deprecated, do not use it, esp where not needed
(backported from HEAD)
| -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); } |