53 |
my $action = $paths->{$path}->{action} || die "no action in ", dump($path); |
my $action = $paths->{$path}->{action} || die "no action in ", dump($path); |
54 |
|
|
55 |
my $branch = '/'; |
my $branch = '/'; |
56 |
($branch,$path) = ($1,$2) if ($path =~ m/$repository->branch_regex/); |
my $regex = $repository->branch_regex || die "no branch_regex?"; |
57 |
|
($branch,$path) = ($1,$2) if ($path =~ m/$regex/); |
58 |
|
|
59 |
my $b = SVNBrowser::Model::Branch->new; |
my $b = SVNBrowser::Model::Branch->new; |
60 |
$b->load_or_create( |
$b->load_or_create( |