[Bps-public-commit] cpan2rt branch, master, updated. deployed-12-gade101e

[Thomas Sibley]

The branch, master has been updated
       via  ade101e80f6ff9bfc87885fe11b35d500d45a303 (commit)
      from  560f7ff4c2199963aff0d776a6fc8282c9e85363 (commit)

Summary of changes:
 bin/cpan2rt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

- Log -----------------------------------------------------------------
commit ade101e80f6ff9bfc87885fe11b35d500d45a303
Author: Thomas Sibley <trs at bestpractical.com>
Date:   Tue Mar 12 17:16:40 2013 -0700

    A working --skip option to bin/cpan2rt
    
    The option was introduced in ef17b54 but didn't work correctly until
    now.
    
    Yet another reason to prefer the block form of map. :)

diff --git a/bin/cpan2rt b/bin/cpan2rt
index b334258..cff3165 100755
--- a/bin/cpan2rt
+++ b/bin/cpan2rt
@@ -81,7 +81,7 @@ $commands{ $command }->();
 sub cmd_update {
     my %opt = ( sync => 1, force => 0, debug => 0, skip => [] );
     GetOptions( \%opt, 'sync!', 'force!', 'debug!', 'home=s', 'datadir=s', 'mirror=s', 'skip=s@' );
-    $opt{'skip'} = { map $_ => 1, @{$opt{'skip'}} };
+    $opt{'skip'} = { map { $_ => 1 } @{$opt{'skip'}} };
     my $importer = CPAN2RT->new( %opt );
 
     $importer->sync_files( $opt{'mirror'} ) if $opt{'sync'};

-----------------------------------------------------------------------