Logbuch/HG.pm
branchfoerste
changeset 48 a1b051269c2e
parent 13 d9694ca1b7fc
child 56 3c33846e5686
equal deleted inserted replaced
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