diff options
-rw-r--r-- | Debian/Dgit.pm | 7 | ||||
-rwxr-xr-x | dgit | 5 |
2 files changed, 6 insertions, 6 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index aec5a23..c0ee27f 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -47,7 +47,7 @@ BEGIN { fail failmsg ensuredir must_getcwd executable_on_path waitstatusmsg failedcmd_waitstatus failedcmd_report_cmd failedcmd - runcmd cmdoutput cmdoutput_errok + runcmd shell_cmd cmdoutput cmdoutput_errok git_rev_parse git_cat_file git_get_ref git_get_symref git_for_each_ref git_for_each_tag_referring is_fast_fwd @@ -315,6 +315,11 @@ sub runcmd { failedcmd @_ if system @_; } +sub shell_cmd { + my ($first_shell, @cmd) = @_; + return qw(sh -ec), $first_shell.'; exec "$@"', 'x', @cmd; +} + sub cmdoutput_errok { confess Dumper(\@_)." ?" if grep { !defined } @_; debugcmd "|",@_; @@ -561,11 +561,6 @@ sub runcmd_ordryrun_local { } } -sub shell_cmd { - my ($first_shell, @cmd) = @_; - return qw(sh -ec), $first_shell.'; exec "$@"', 'x', @cmd; -} - our $helpmsg = <<END; main usages: dgit [dgit-opts] clone [dgit-opts] package [suite] [./dir|/dir] |