Try fixing tests on Strawberry Perl (RT#65282)
(thanks Christiaan Kras)
This commit is contained in:
1 parent
32c83d6109
commit
fc453fe4fb
1 file changed
+1
-1
@@ -155,7 +155,7 @@ sub _template_content {
|
|||||||
my $self = shift;
|
my $self = shift;
|
||||||
my ($path) = @_;
|
my ($path) = @_;
|
||||||
|
|
||||||
my ($t) = ($path =~ m{templates\/(.*)$});
|
my ($t) = ($path =~ m{templates[\/|\\](.*)$});
|
||||||
|
|
||||||
if (-r $path) {
|
if (-r $path) {
|
||||||
return $self->SUPER::_template_content(@_);
|
return $self->SUPER::_template_content(@_);
|
||||||
|
|||||||
Reference in new issue
Block a user