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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Jan  4 12:08:03 2010
New Revision: 50135

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50135
Log:
make --only accept multiple files separated by a comma

previously it accepted multiple files separated with space as in

  --only control rules

Now it requires

  --only control,rules

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

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=50135&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Mon Jan  4 12:08:03 2010
@@ -275,7 +275,8 @@
 
 This option allows to update only one or more file(s) in the debian/
 directory when B<dh-make-perl> is run in L</--refresh> mode. Filenames are
-separated by space.
+separated by a comma. The option can be given multiple times, accumulating
+arguments.
 
 =item B<--packagename> | B<-p> I<PACKAGENAME>
 

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=50135&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Config.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Config.pm Mon Jan  4 12:08:03 2010
@@ -26,7 +26,7 @@
     'exclude|i:s{,}',  'help',
     'home-dir=s',      'install!',
     'nometa',          'notest',
-    'only|o=s@{,}',
+    'only|o=s@',
     'packagename|p=s', 'pkg-perl!',
     'requiredeps',     'sources-list=s',
     'verbose!',        'version=s',
@@ -128,6 +128,9 @@
     $opts{exclude} = $self->DEFAULTS->{'exclude'} if ! $opts{exclude}; # arguments not specified
                                                                        # back to defaults
 
+    # handle comma-separated multiple values in --only
+    $opts{only} = [ split( /,/, join( ',', @{ $opts{only} } ) ) ];
+
     while ( my ( $k, $v ) = each %opts ) {
         my $field = $k;
         $field =~ s/-/_/g;