|
Lines 114-120
Link Here
|
| 114 |
} elsif (/^([ARMD])\s+(\S+)/) { |
114 |
} elsif (/^([ARMD])\s+(\S+)/) { |
| 115 |
my ($status, $filename) = ($1,$2); |
115 |
my ($status, $filename) = ($1,$2); |
| 116 |
if($vcs eq "git") { |
116 |
if($vcs eq "git") { |
| 117 |
open P, "git-rev-parse --sq --show-prefix |"; |
117 |
open P, "git rev-parse --sq --show-prefix |"; |
| 118 |
my $prefix = <P>; |
118 |
my $prefix = <P>; |
| 119 |
$prefix = substr($prefix, 0, -1); |
119 |
$prefix = substr($prefix, 0, -1); |
| 120 |
close P; |
120 |
close P; |
