Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Copypasta in commonpath calculation.

Browse Source
This commit is contained in:
Chris 2012-06-29 14:10:27 +01:00
parent 29a6507917
commit d7026e0464
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Template.pm
View File

@ -404,7 +404,7 @@ sub set_template_dir {
# And the common path, if possible # And the common path, if possible
if($self -> {"fallback"}) { if($self -> {"fallback"}) {
$self -> {"commonpath"} = path_join($self -> {"scriptpath"}, $self -> {"basedir"}, $self -> {"fallback"}); $self -> {"commonpath"} = path_join($self -> {"scriptpath"}, $self -> {"basedir"}, $self -> {"fallback"});
$self -> {"commonpath"} .= "/" unless($self -> {"templatepath"} =~ m|/$|); # templatepath must have trailing slash $self -> {"commonpath"} .= "/" unless($self -> {"commonpath"} =~ m|/$|); # commonpath must have trailing slash
} else { } else {
$self -> {"commonpath"} = $self -> {"templatepath"}; $self -> {"commonpath"} = $self -> {"templatepath"};
} }