X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=4ef7047a1b6133249318e4966be18124a8473e48;hp=8bdad8823439843f872f1c96d141a81579b71b0c;hb=9d1f95081b5502041ce6597d67a7aa3c23dc8e08;hpb=58b80ff1398f28fcf955eedbfc79e91628bfa491

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 8bdad88..4ef7047 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -1670,7 +1670,7 @@ sub uri_for {
     $args =~ s/([^$URI::uric])/$URI::Escape::escapes{$1}/go;
 
     # re-attach fragment on the end of everything after adding params
-    $args .= "#$fragment" if $fragment;
+    $query .= "#$fragment" if $fragment;
 
     my $res = bless(\"${base}${args}${query}", $class);
     $res;