diff options
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 () { |