Mimick makepkg's symlinking of tarball to avoid downloading twice.

1 files changed, 17 insertions, 1 deletions

diff --git a/bin/macros/perl-dist b/bin/macros/perl-dist
index c822093..82d298b 100755
--- a/bin/macros/perl-dist
+++ b/bin/macros/perl-dist
@@ -286,7 +286,7 @@ sub _distofmod
 package main;
 
 use File::Basename qw(basename dirname);
-use File::Spec::Functions qw(catfile);
+use File::Spec::Functions qw(catfile catdir);
 use File::Find qw(find);
 
 use JSON::XS qw(decode_json); # parse META.{json,yml} files
@@ -334,6 +334,8 @@ sub main
     my $file = basename($distpath);
     my $info = distinfo($file);
 
+    $dir = catdir($dir, 'src');
+    prepsrcdir($dir, $file);
     chdir $dir or die "chdir $dir: $!";
     $dir = extractdist($file);
 
@@ -364,6 +366,20 @@ sub main
     printjam(\%pbvars);
 }
 
+sub prepsrcdir
+{
+    my ($srcdir, $distfile) = @_;
+
+    unless (-d $srcdir) {
+        mkdir $srcdir or die "mkdir $srcdir: $!";
+    }
+
+    symlink $distfile, catfile($srcdir, $distfile)
+        or die "symlink $distfile: $!";
+
+    return;
+}
+
 sub envvar
 {
     my ($name) = @_;