X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=0b2c012e86790881ad42245eaf47f0066230a7a9;hp=18a0f35872bea161b30576d156b88d08970430bc;hb=7af54927870a7c6f89323ac1876d49f92e7841f5;hpb=8ba2999969105bb9079e0c42473d88e4b73e079a
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 18a0f35..0b2c012 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -23,6 +23,7 @@ use Path::Class::File ();
use URI ();
use URI::http;
use URI::https;
+use HTML::Entities;
use Tree::Simple qw/use_weak_refs/;
use Tree::Simple::Visitor::FindByUID;
use Class::C3::Adopt::NEXT;
@@ -1869,6 +1870,7 @@ sub finalize_headers {
if ( !$response->has_body ) {
# Add a default body if none is already present
+ my $encoded_location = encode_entities($location);
$response->body(<<"EOF");
@@ -1876,7 +1878,7 @@ sub finalize_headers {
Moved
- This item has moved here.
+ This item has moved here.