diff options
| author | Michael Schroeder <mls@suse.de> | 2012-09-27 18:19:01 +0200 |
|---|---|---|
| committer | Michael Schroeder <mls@suse.de> | 2012-09-27 18:19:01 +0200 |
| commit | 3f1147eb5cdaea9ac4d8ec3692d028ec849eaf03 (patch) | |
| tree | 8ed70b57bd7cea2c14fc69600aa77809f352abe9 | |
| parent | 10fa13ae153c78ffc481162b0af8ab24cf527fb5 (diff) | |
| download | build-3f1147eb5cdaea9ac4d8ec3692d028ec849eaf03.tar.gz build-3f1147eb5cdaea9ac4d8ec3692d028ec849eaf03.tar.bz2 build-3f1147eb5cdaea9ac4d8ec3692d028ec849eaf03.zip | |
- fix odd number of elements warning
| -rw-r--r-- | Build/Rpm.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/Rpm.pm b/Build/Rpm.pm index 9cbb272..30370fb 100644 --- a/Build/Rpm.pm +++ b/Build/Rpm.pm @@ -128,7 +128,7 @@ sub grabargs { my %m; $m{'0'} = $macname; $m{'**'} = join(' ', @args); - my %go = split(/(:?)/, $getopt); + my %go = (split(/(:?)/, $getopt, -1), undef); while (@args && $args[0] =~ s/^-//) { my $o = shift @args; last if $o eq '-'; @@ -331,7 +331,7 @@ reexpand: $line = 'MACRO'; last; } - if ($macros_args{$macname}) { + if (defined($macros_args{$macname})) { # macro with args! if (!defined($macdata)) { $line =~ /^\s*([^\n]*).*?$/; |