diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-05-27 05:34:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-05-27 05:34:47 +0000 |
| commit | 6ab064d983971735835001abc2b8568871d6c00c (patch) | |
| tree | 29c623ef8ab26f6d334db795ceb1fdf1d8f3946b | |
| parent | 9f74cbe08823afc6a6efcb1f2c2dad52a5d92e88 (diff) | |
| download | perl-MDK-Common-6ab064d983971735835001abc2b8568871d6c00c.tar perl-MDK-Common-6ab064d983971735835001abc2b8568871d6c00c.tar.gz perl-MDK-Common-6ab064d983971735835001abc2b8568871d6c00c.tar.bz2 perl-MDK-Common-6ab064d983971735835001abc2b8568871d6c00c.tar.xz perl-MDK-Common-6ab064d983971735835001abc2b8568871d6c00c.zip | |
fix addVarsInSh() with no fields
| -rw-r--r-- | MDK/Common/System.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index c0dfbb2..ff94cd3 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -350,7 +350,7 @@ sub addVarsInSh { sub addVarsInShMode { my ($file, $mod, $l, @fields) = @_; - my %l = map { $_ => $l->{$_} } @fields; + my %l = @fields ? map { $_ => $l->{$_} } @fields : %$l; my %l2 = getVarsFromSh($file); # below is add2hash_(\%l, \%l2); |