sub parse_option( @conf )
{
...
   my $option;
...
   try
   {
      # Use incremented value type to count number of times options matched.
      GetOptions( 'option|o+' => \$option )
         or die $!;
      $show_progress and warn qq[option set: $option];
   }
   catch
   {
      warn qq[Option parsing failed of @arg: $_];

      ##  CHANGED.
      # Need to set so as death of "GetOptions" does not.
      $option = undef;
   }
   ;

   return $option;
}