From fc453fe4fbc0e8a8ddb949983460356d7c5f2271 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Sat, 5 Feb 2011 12:12:47 -0800
Subject: [PATCH] Try fixing tests on Strawberry Perl (RT#65282)

(thanks Christiaan Kras)
---
 lib/MojoX/Renderer/TT.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/MojoX/Renderer/TT.pm b/lib/MojoX/Renderer/TT.pm
index 80cb267..a3320d5 100644
--- a/lib/MojoX/Renderer/TT.pm
+++ b/lib/MojoX/Renderer/TT.pm
@@ -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(@_);