Skip the main module when auto-discovering packages

rather than duplicate it.
AndyA · Jun 14, 2011 · ca4b3b2 · ca4b3b2
1 parent e724015
commit ca4b3b2
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/bin/mcpani b/bin/mcpani
@@ -78,6 +78,11 @@ sub add {
     my $provides = _find_provides( $options{file} );
 
     while ( my ( $module, $version ) = each( %{$provides} ) ) {
+      # don't auto-discover the main module that we already know about
+      if ( $module eq $options{module} ) {
+        $options{version} ||= $version;
+        next;
+      }
       push @modules_to_add,
        {
         version => $version,