diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-27 21:24:04 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 12:17:08 +0100 |
commit | 991b8c9a6bba8aeec02cb1b3d39e3f9e8d941a29 (patch) | |
tree | eef2877b44d135bdc7fed276a488f70839c3e8bd /Debian/Dgit.pm | |
parent | 03894a4813bd99f86c188de61d72c0a05833e5cb (diff) |
Break out ensuredir and make mkrepotmp use it
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index a53cb82..c2b7f67 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -16,7 +16,7 @@ BEGIN { $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(debiantag server_branch server_ref - stat_exists fail waitstatusmsg failedcmd + stat_exists fail ensuredir waitstatusmsg failedcmd cmdoutput cmdoutput_errok git_rev_parse git_for_each_ref git_for_each_tag_referring is_fast_fwd @@ -128,6 +128,13 @@ sub fail { die $s; } +sub ensuredir ($) { + my ($dir) = @_; # does not create parents + return if mkdir $dir; + return if $! == EEXIST; + die "mkdir $dir: $!"; +} + our @signames = split / /, $Config{sig_name}; sub waitstatusmsg () { |