Try fixing tests on Strawberry Perl (RT#65282)

(thanks Christiaan Kras)
This commit is contained in:
Ask Bjørn Hansen
2011-02-05 12:12:47 -08:00
parent 32c83d6109
commit fc453fe4fb
+1 -1
View File
@@ -155,7 +155,7 @@ sub _template_content {
my $self = shift;
my ($path) = @_;
my ($t) = ($path =~ m{templates\/(.*)$});
my ($t) = ($path =~ m{templates[\/|\\](.*)$});
if (-r $path) {
return $self->SUPER::_template_content(@_);