From 3f1147eb5cdaea9ac4d8ec3692d028ec849eaf03 Mon Sep 17 00:00:00 2001
From: Michael Schroeder <mls@suse.de>
Date: Thu, 27 Sep 2012 18:19:01 +0200
Subject: [PATCH] - fix odd number of elements warning

---
 Build/Rpm.pm | 4 ++--
 1 file 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]*).*?$/;
-- 
2.7.4