diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-11-14 00:40:56 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-11-14 00:40:56 +0000 |
| commit | c608c2c31212dbb185391f13075191c4d17eaf07 (patch) | |
| tree | ea9db7a28bd27606eb0e2d3fce70b4d997e762c7 | |
| parent | 4b9053b6ce833edb12fa711b9e2052424cd98513 (diff) | |
| download | perl-MDV-Distribconf-c608c2c31212dbb185391f13075191c4d17eaf07.tar perl-MDV-Distribconf-c608c2c31212dbb185391f13075191c4d17eaf07.tar.gz perl-MDV-Distribconf-c608c2c31212dbb185391f13075191c4d17eaf07.tar.bz2 perl-MDV-Distribconf-c608c2c31212dbb185391f13075191c4d17eaf07.tar.xz perl-MDV-Distribconf-c608c2c31212dbb185391f13075191c4d17eaf07.zip | |
- avoid warning if hdlist does not exists
| -rw-r--r-- | lib/MDV/Distribconf/Utils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MDV/Distribconf/Utils.pm b/lib/MDV/Distribconf/Utils.pm index ea0bbb5..ecdb7ce 100644 --- a/lib/MDV/Distribconf/Utils.pm +++ b/lib/MDV/Distribconf/Utils.pm @@ -31,7 +31,7 @@ sub hdlist_vs_dir { push(@rpms, glob("$dir/*.rpm")); } @rpms = sort { ($b =~ m:.*/+(.*):)[0] cmp ($a =~ m:.*/+(.*):)[0] } @rpms; - if (my $pack = MDV::Packdrakeng->open(archive => $hdlist)) { + if (-f $hdlist and my $pack = MDV::Packdrakeng->open(archive => $hdlist)) { my $hdlisttime = (stat($hdlist))[9]; my (undef, $files, undef) = $pack->getcontent(); my @hdrs = sort { $b cmp $a } map { "$_.rpm" } @{$files || []}; |