From 40a410969dc7ad4a7b28bd3a831a1bb60d088eef Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Thu, 22 Sep 2011 11:20:07 -0400
Subject: Do not download CPAN dists if it already exists in the CWD.

---
 bin/metas/perl             | 4 ++++
 bin/metas/perl.d/perl-dist | 9 ++++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

(limited to 'bin')

diff --git a/bin/metas/perl b/bin/metas/perl
index b601746..c1ca14e 100755
--- a/bin/metas/perl
+++ b/bin/metas/perl
@@ -44,6 +44,10 @@ sub fetchdist
 {
 	my ($cpath) = @_;
 	my $file = $cpath; $file =~ s{^.*/}{};
+	if (-f $file) {
+		print STDERR "$file already downloaded.\n";
+		return;
+	}
 
 	my $mirror = $ENV{'CPANMIRROR'} || 'ftp://cpan.pair.com';
 	my $url = "${mirror}/authors/id/${cpath}";
diff --git a/bin/metas/perl.d/perl-dist b/bin/metas/perl.d/perl-dist
index 87bb9df..c916a95 100755
--- a/bin/metas/perl.d/perl-dist
+++ b/bin/metas/perl.d/perl-dist
@@ -364,10 +364,13 @@ sub chsrcdir
 {
     my ($srcdir, $distfile) = @_;
 
-    mkdir $srcdir or die "mkdir $srcdir: $!";
+    unless (-d $srcdir) {
+        mkdir $srcdir or die "mkdir $srcdir: $!";
+    }
     chdir $srcdir or die "chdir $srcdir: $!";
-    symlink catfile('..', $distfile), $distfile
-        or die "symlink $distfile: $!";
+    unless (-f $distfile) {
+        symlink catfile('..', $distfile), $distfile or die "symlink $distfile: $!";
+    }
 
     return $srcdir;
 }
-- 
cgit v1.2.3-24-g4f1b