chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Move git_rev_parse into Dgit.pm (renaming it from rev_parse
[dgit.git]
/
Debian
/
Dgit.pm
diff --git
a/Debian/Dgit.pm
b/Debian/Dgit.pm
index 00b4aa5460869611a42436de52f4a3ffe53df8fc..2c9c9f91cae77d5214dd0819cb83f8c10ce1a4a0 100644
(file)
--- a/
Debian/Dgit.pm
+++ b/
Debian/Dgit.pm
@@
-18,7
+18,7
@@
BEGIN {
@EXPORT = qw(debiantag server_branch server_ref
stat_exists fail waitstatusmsg failedcmd
cmdoutput cmdoutput_errok
@EXPORT = qw(debiantag server_branch server_ref
stat_exists fail waitstatusmsg failedcmd
cmdoutput cmdoutput_errok
- git_for_each_ref
+ git_
rev_parse git_
for_each_ref
git_for_each_tag_referring
$package_re $component_re $deliberately_re
$branchprefix
git_for_each_tag_referring
$package_re $component_re $deliberately_re
$branchprefix
@@
-177,6
+177,10
@@
sub cmdoutput {
return $d;
}
return $d;
}
+sub git_rev_parse ($) {
+ return cmdoutput qw(git rev-parse), "$_[0]~0";
+}
+
sub git_for_each_ref ($$) {
my ($pattern,$func) = @_;
# calls $func->($objid,$objtype,$fullrefname,$reftail);
sub git_for_each_ref ($$) {
my ($pattern,$func) = @_;
# calls $func->($objid,$objtype,$fullrefname,$reftail);