#!/usr/bin/env perl
# Last modified: Thu Nov 14 2024 06:16:33 PM -05:00 [EST]

use strict;
use v5.18;
use utf8;
use warnings;
use CPAN::Mini;

my %seen;
 
CPAN::Mini->update_mirror(
  remote => "http://www.cpan.org",
  local  => "/cygdrive/c/Users/somia/AppData/Roaming/minicpan",
  skip_perl => 1,
  log_level => 'info',
  dirmode => 0761,
  path_filters =>[
    sub { 
      exists $seen{$_[0]} and return 1;
      $seen{$_[0]} = 1;
      $_[0] =~ qr%/(ExtUtils-.+)% and do { print STDERR '-'x 76 , qq[\n],
                 $1 , qq[\n]; return 0;  }
         or return 1;
    }
  ],
);