Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Better cleaning up of previous directories.

  • Loading branch information...
commit d1e3955c25a8129aff265ea245942052fcb202b3 1 parent f14afa1
@davorg authored
Showing with 7 additions and 0 deletions.
  1. +7 −0 release
View
7 release
@@ -1,6 +1,10 @@
#!/usr/bin/perl
+use strict;
+use warnings;
+
use File::Copy;
+use File::Path;
use Template;
use YAML 'LoadFile';
use constant TT => '/home/dave/src/release';
@@ -22,6 +26,8 @@ system "cover -delete";
system "HARNESS_PERL_SWITCHES=-MDevel::Cover $build->{cmd} test";
system "cover";
+rmtree($meta->{name}) if -d $meta->{name};
+
mkdir "$meta->{name}";
mkdir "$meta->{name}/cover";
foreach (<cover_db/*.html>, <cover_db/*.css>) {
@@ -45,4 +51,5 @@ chdir "$meta->{name}";
system "zcat $ver.tar.gz | tar xvf -";
move $ver, 'dist';
chdir '..';
+system "ssh davorg\@dave.org.uk rm -rf httpdocs/code/$meta->{name}";
system "scp -r ./$meta->{name} davorg\@dave.org.uk:httpdocs/code/";

0 comments on commit d1e3955

Please sign in to comment.
Something went wrong with that request. Please try again.