X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FRegex.pm;h=4b1beae7322870b2ce6342df954290d3b9b9280a;hb=fb495632d15d5aa112371bb5c3c39a6189ddb9a0;hp=0d6da04b2f05bef060b5c84ae47a0b4cd19618cd;hpb=48d435ba6a0925260fd58c8c18ff425e99708eae;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/DispatchType/Regex.pm b/lib/Catalyst/DispatchType/Regex.pm index 0d6da04..4b1beae 100644 --- a/lib/Catalyst/DispatchType/Regex.pm +++ b/lib/Catalyst/DispatchType/Regex.pm @@ -151,6 +151,7 @@ sub uri_for_action { my $re = "$orig"; $re =~ s/^\^//; $re =~ s/\$$//; + $re =~ s/\\([^\\])/$1/g; my $final = '/'; my @captures = @$captures; while (my ($front, $rest) = split(/\(/, $re, 2)) {