chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
68fecef
)
git_for_each_ref: Fix FH handling
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 11 May 2015 07:57:33 +0000
(08:57 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 31 May 2015 10:54:11 +0000
(11:54 +0100)
Debian/Dgit.pm
patch
|
blob
|
history
diff --git
a/Debian/Dgit.pm
b/Debian/Dgit.pm
index 112d15bb64e2c8fbc1e64f6aba4e0569f1718176..507bcca835134c2c9f49f4f021591ee094d8c21e 100644
(file)
--- a/
Debian/Dgit.pm
+++ b/
Debian/Dgit.pm
@@
-59,12
+59,12
@@
sub git_for_each_ref ($$) {
# calls $func->($objid,$objtype,$fullrefname,$reftail);
# $reftail is RHS of ref after refs/\w+/
# breaks if $pattern matches any ref `refs/blah' where blah has no `/'
# calls $func->($objid,$objtype,$fullrefname,$reftail);
# $reftail is RHS of ref after refs/\w+/
# breaks if $pattern matches any ref `refs/blah' where blah has no `/'
-
my $fh = new IO::File
"-|", qw(git for-each-ref), $pattern or die $!;
- while (<
$fh
>) {
+
open GFER,
"-|", qw(git for-each-ref), $pattern or die $!;
+ while (<
GFER
>) {
m#^(\w+)\s+(\w+)\s+(refs/\w+/(\S+))\s# or die "$_ ?";
$func->($1,$2,$3,$4);
}
m#^(\w+)\s+(\w+)\s+(refs/\w+/(\S+))\s# or die "$_ ?";
$func->($1,$2,$3,$4);
}
- $!=0; $?=0; close
$fh
or die "$pattern $? $!";
+ $!=0; $?=0; close
GFER
or die "$pattern $? $!";
}
sub git_for_each_tag_referring ($$) {
}
sub git_for_each_tag_referring ($$) {