branch | foerste |
changeset 48 | a1b051269c2e |
parent 13 | d9694ca1b7fc |
child 56 | 3c33846e5686 |
47:e8f30ec7d962 | 48:a1b051269c2e |
---|---|
118 my @result = _run( $self->get_repo(), "hg status"); |
118 my @result = _run( $self->get_repo(), "hg status"); |
119 |
119 |
120 my $path = $self->get_repo() . "/"; |
120 my $path = $self->get_repo() . "/"; |
121 $result[1] =~ s/^([^\s]+)(\s+)(.*)$/${1}${2}${path}${3}/mg; |
121 $result[1] =~ s/^([^\s]+)(\s+)(.*)$/${1}${2}${path}${3}/mg; |
122 |
122 |
123 return $result[1]; |
123 return "$result[1]\n" if $result[1]; |
124 } |
124 } |
125 |
125 |
126 |
126 |
127 =pod |
127 =pod |
128 |
128 |