> # parse the command-line
> -my $result = GetOptions( qw(
> +my $result = GetOptions( map {
> + my $key = $_;
> + $key =~ s/\W.+$//;
> + $key => \$Options{$_};
> +} qw(
> help
> podpath=s
> podroot=s
I'm not sure what you are trying to achieve with this. The net efffect
is that you get something like
GetOptions('foo' => \$Options{foo}, 'bar=s' => \$Options{bar})
which is exactly what you get when you write
GetOptions(\%Options, 'foo', 'bar=s')
-- Johan
