Author: jkeenan Date: Fri Oct 5 16:36:07 2007 New Revision: 21896 Modified: trunk/config/auto/gdbm.pm trunk/config/auto/gmp.pm trunk/config/gen/icu.pm
Log: Applying patch provided in http://rt.perl.org/rt3/Ticket/Display.html?id=45883. Arguments are now explicitly provided to $conf->options->get(). No more reliance on the package global variable @args. Modified: trunk/config/auto/gdbm.pm ============================================================================== --- trunk/config/auto/gdbm.pm (original) +++ trunk/config/auto/gdbm.pm Fri Oct 5 16:36:07 2007 @@ -30,7 +30,10 @@ sub runstep { my ( $self, $conf ) = @_; - my ( $verbose, $without ) = $conf->options->get(@args); + my ( $verbose, $without ) = $conf->options->get( qw| + verbose + without-gmp + | ); if ($without) { $conf->data->set( has_gdbm => 0 ); Modified: trunk/config/auto/gmp.pm ============================================================================== --- trunk/config/auto/gmp.pm (original) +++ trunk/config/auto/gmp.pm Fri Oct 5 16:36:07 2007 @@ -29,7 +29,10 @@ sub runstep { my ( $self, $conf ) = @_; - my ( $verbose, $without ) = $conf->options->get(@args); + my ( $verbose, $without ) = $conf->options->get( qw| + verbose + without-gmp + | ); if ($without) { $conf->data->set( has_gmp => 0 ); Modified: trunk/config/gen/icu.pm ============================================================================== --- trunk/config/gen/icu.pm (original) +++ trunk/config/gen/icu.pm Fri Oct 5 16:36:07 2007 @@ -31,7 +31,15 @@ sub runstep { my ( $self, $conf ) = @_; - my ( $verbose, $icushared, $icuheaders, $icuconfig, $without ) = $conf->options->get(@args); + my ( $verbose, $icushared, $icuheaders, $icuconfig, $without ) = + $conf->options->get( qw| + verbose + icushared + icuheaders + icu-config + without-icu + | + ); my @icu_headers = qw(ucnv.h utypes.h uchar.h); my $autodetect = !defined($icushared)
