diff options
author | Justin Davis <jrcd83@gmail.com> | 2011-10-07 23:11:26 +0200 |
---|---|---|
committer | Justin Davis <jrcd83@gmail.com> | 2011-10-07 23:11:26 +0200 |
commit | 4d348ea123d6bed169d3f7d458398b173800cbb5 (patch) | |
tree | f7c12e9b682b80413a17451619d19234f96c84d2 /bin | |
parent | 594afc9729a3a24ad08c8b84d8c215c963a4ea89 (diff) | |
download | genpkg-4d348ea123d6bed169d3f7d458398b173800cbb5.tar.gz genpkg-4d348ea123d6bed169d3f7d458398b173800cbb5.tar.xz |
Remove src/ dir from package dir each time.
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/metas/perl.d/perl-dist | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/metas/perl.d/perl-dist b/bin/metas/perl.d/perl-dist index a829bb9..e4af02d 100755 --- a/bin/metas/perl.d/perl-dist +++ b/bin/metas/perl.d/perl-dist @@ -356,9 +356,10 @@ sub chsrcdir { my ($srcdir, $distfile) = @_; - unless(-d $srcdir) { - mkdir $srcdir or die "mkdir $srcdir: $!"; + if (-e $srcdir) { + system("rm", "-r", $srcdir) == 0 or die "failed to rm $srcdir\n"; } + mkdir $srcdir or die "mkdir $srcdir: $!"; chdir($srcdir) or die "chdir $srcdir: $!"; unless(-f $distfile) { symlink(catfile('..', $distfile), $distfile) or die "symlink $distfile: $!"; |