r29560 - /trunk/dh-make-perl/lib/DhMakePerl/Config.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sun Jan 11 15:05:36 UTC 2009


Author: dmn
Date: Sun Jan 11 15:05:33 2009
New Revision: 29560

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29560
Log:
Config: fix populating options from config file

Modified:
    trunk/dh-make-perl/lib/DhMakePerl/Config.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl/Config.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Config.pm?rev=29560&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Config.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Config.pm Sun Jan 11 15:05:33 2009
@@ -161,14 +161,15 @@
             if $yaml->{'config-file'};
 
         for ( $self->options ) {
-            ( my $key = $_ ) =~ s/_/-/g;
+             ( my $key = $_ ) =~ s/[!=|].*//;
 
             next unless exists $yaml->{$key};
             next
                 if $self->_explicitly_set
                     ->{$key};    # cmd-line opts take precedence
 
-            $self->$_( delete $yaml->{$key} );
+            ( my $opt = $key ) =~ s/-/_/g;
+            $self->$opt( delete $yaml->{$key} );
         }
 
         die "Error parsing $fn: the following keys are not known:\n"




More information about the Pkg-perl-cvs-commits mailing list