simplify getopt handling

Also gets rid of those 'odd number in hash assignment' warnings.

1 files changed, 2 insertions, 1 deletions

diff --git a/Build/Rpm.pm b/Build/Rpm.pm
index cb50964..1f775b3 100644
--- a/Build/Rpm.pm
+++ b/Build/Rpm.pm
@@ -130,7 +130,8 @@ sub grabargs {
   my %m;
   $m{'0'} = $macname;
   $m{'**'} = join(' ', @args);
-  my %go = (split(/(:?)/, $getopt, -1), undef);
+  my %go;
+  %go = ($getopt =~ /(.)(:*)/sg) if defined $getopt;
   while (@args && $args[0] =~ s/^-//) {
     my $o = shift @args;
     last if $o eq '-';