.lib/perl5/Autofetch.pm

changeset 852
cf73e0ff4258
parent 690
d005acd0e883
--- a/.lib/perl5/Autofetch.pm
+++ b/.lib/perl5/Autofetch.pm
@@ -6,6 +6,8 @@ use File::Spec::Functions qw(catfile rel
 
 sub fetch {
   my ($path, $module) = @_;
+  return if
+    system('cpm', 'install', -L => $path, $module) == 0;
   system 'cpanm', -nq, -l => $path, $module;
 }
 

mercurial