Skip to content

Instantly share code, notes, and snippets.

@xaicron

xaicron/gist:329267

Created March 11, 2010 15:57
Show Gist options
  • Save xaicron/329267 to your computer and use it in GitHub Desktop.
Save xaicron/329267 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
alias cpan-uninstall='perl -MExtUtils::Install -MExtUtils::Installed -e "unshift@ARGV,new ExtUtils::Installed;sub a{\@ARGV};uninstall((eval{a->[0]->packlist(a->[1])}||do{require CPAN;a->[0]->packlist(CPAN::Shell->expandany(a->[1])->distribution->base_id=~m/(.*)-[^-]+$/)})->packlist_file,1,a->[2])"'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment