simcop2387/docker-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 2 Wiki Activity

Make the directory if it doesn't already exist

Browse source
This commit is contained in:
Peter Martini 2015-04-11 14:18:19 -07:00
parent b1ad374771
commit b86caa1346
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
generate.pl
View file

@ -56,6 +56,8 @@ for my $release (@{$yaml->{releases}}) {
($release->{version} =~ /(\d+)\.(\d+)\.(\d+)/), ($release->{version} =~ /(\d+)\.(\d+)\.(\d+)/),
$config; $config;
mkdir $dir unless -d $dir;
open my $dockerfile, ">$dir/Dockerfile" or die "Couldn't open $dir/Dockerfile for writing"; open my $dockerfile, ">$dir/Dockerfile" or die "Couldn't open $dir/Dockerfile for writing";
print $dockerfile $output; print $dockerfile $output;
close $dockerfile; close $dockerfile;