diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-11 10:45:22 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-11 10:45:22 +0000 |
| commit | c90e8aa6258dea5391341e435b82bc22e895e86c (patch) | |
| tree | e5b40bb067807f8781e84c01396ceb6691bdac4b | |
| parent | c13cdaae7ac4c96889dccc5c59b41ce25cf31b73 (diff) | |
| download | perl-MDV-Distribconf-c90e8aa6258dea5391341e435b82bc22e895e86c.tar perl-MDV-Distribconf-c90e8aa6258dea5391341e435b82bc22e895e86c.tar.gz perl-MDV-Distribconf-c90e8aa6258dea5391341e435b82bc22e895e86c.tar.bz2 perl-MDV-Distribconf-c90e8aa6258dea5391341e435b82bc22e895e86c.tar.xz perl-MDV-Distribconf-c90e8aa6258dea5391341e435b82bc22e895e86c.zip | |
- avoid an undef value causing warning
| -rw-r--r-- | lib/MDV/Distribconf.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm index 6e417fa..8695c55 100644 --- a/lib/MDV/Distribconf.pm +++ b/lib/MDV/Distribconf.pm @@ -446,7 +446,7 @@ sub getvalue { last; }; /^productid$/ and do { - return join(',', map { "$_=" . $distrib->getvalue(undef, $_, '') } + return join(',', map { "$_=" . ($distrib->getvalue(undef, $_) || '') } qw(vendor distribution type version branch release arch product)); }; /^path$/ and return $media; |