- my $fh = new IO::File "-|", qw(git for-each-ref), $pattern or die $!;
- while (<$fh>) {
- m#^(\w+)\s+(\w+)\s+(refs/\w+/(\S+))\s# or die "$_ ?";
+ my @cmd = (qw(git for-each-ref), $pattern);
+ open GFER, "-|", @cmd or die $!;
+ debugcmd "|", @cmd;
+ while (<GFER>) {
+ chomp or die "$_ ?";
+ printdebug "|> ", $_, "\n";
+ m#^(\w+)\s+(\w+)\s+(refs/\w+/(\S+))$# or die "$_ ?";