aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-02-25 21:05:24 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-02-25 21:05:24 +0000
commit5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3 (patch)
tree4cf9c648a8275a7aa2855c10aaa73c574aa15f86
parentf3dd5972ec4f943f0b3a0e5504aa9cefa3a7c561 (diff)
downloadperl-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.pm3
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);
}