diff options
| author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-27 21:28:05 +0100 |
|---|---|---|
| committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 12:17:08 +0100 |
| commit | c31626414fabe6a00ff9db901f69016d26400cb4 (patch) | |
| tree | 6b620a5cb63d9820bb33e0a08b67b807abca351a /Debian/Dgit.pm | |
| parent | 991b8c9a6bba8aeec02cb1b3d39e3f9e8d941a29 (diff) | |
Dgit.pm: git_for_each_ref: do not insist that first component after refs/ matches \w+
Diffstat (limited to 'Debian/Dgit.pm')
| -rw-r--r-- | Debian/Dgit.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index c2b7f67..a270cd8 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -191,7 +191,7 @@ sub git_rev_parse ($) { sub git_for_each_ref ($$) { my ($pattern,$func) = @_; # calls $func->($objid,$objtype,$fullrefname,$reftail); - # $reftail is RHS of ref after refs/\w+/ + # $reftail is RHS of ref after refs/[^/]+/ # breaks if $pattern matches any ref `refs/blah' where blah has no `/' my @cmd = (qw(git for-each-ref), $pattern); open GFER, "-|", @cmd or die $!; @@ -199,7 +199,7 @@ sub git_for_each_ref ($$) { while (<GFER>) { chomp or die "$_ ?"; printdebug "|> ", $_, "\n"; - m#^(\w+)\s+(\w+)\s+(refs/\w+/(\S+))$# or die "$_ ?"; + m#^(\w+)\s+(\w+)\s+(refs/[^/]+/(\S+))$# or die "$_ ?"; $func->($1,$2,$3,$4); } $!=0; $?=0; close GFER or die "$pattern $? $!"; |