Added ID string "(patched by Perlover)" to "X-Powered-By" & "Server" …

…http headers - because there are many fixes from official version
worktycho · Jun 17, 2012 · 9e64183 · 9e64183
1 parent d87679d
commit 9e64183
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/lib/Dancer.pm b/lib/Dancer.pm
@@ -5,7 +5,7 @@ use warnings;
 use Carp;
 use Cwd 'realpath';
 
-our $VERSION   = '1.3091';
+our $VERSION   = '1.3092';
 our $AUTHORITY = 'SUKRIA';
 
 use Dancer::App;

diff --git a/lib/Dancer/Renderer.pm b/lib/Dancer/Renderer.pm
@@ -57,7 +57,7 @@ sub response_with_headers {
     my $response = Dancer::SharedData->response();
 
     $response->{headers} ||= HTTP::Headers->new;
-    my $powered_by = "Perl Dancer " . $Dancer::VERSION;
+    my $powered_by = "Perl Dancer (patched by Perlover) " . $Dancer::VERSION;
     $response->header('X-Powered-By' => $powered_by);
     $response->header('Server'       => $powered_by);
 

diff --git a/t/03_route_handler/29_forward.t b/t/03_route_handler/29_forward.t
@@ -58,8 +58,8 @@ response_content_is [ GET => '/b' ] => 'test is 1';
 my $expected_headers = [
     'Content-Length' => 5,
     'Content-Type' => 'text/html',
-    'Server'       => "Perl Dancer ${Dancer::VERSION}",
-    'X-Powered-By' => "Perl Dancer ${Dancer::VERSION}",
+    'Server'       => "Perl Dancer (patched by Perlover) ${Dancer::VERSION}",
+    'X-Powered-By' => "Perl Dancer (patched by Perlover) ${Dancer::VERSION}",
 ];
 
 response_headers_are_deeply [ GET => '/bounce/' ], $expected_headers;

diff --git a/t/22_hooks/02_before.t b/t/22_hooks/02_before.t
@@ -64,8 +64,8 @@ response_headers_are_deeply [ GET => '/redirect_from' ],
   [
     'Location'     => 'http://localhost/redirect_to',
     'Content-Type' => 'text/xhtml',
-    'Server'       => "Perl Dancer ${Dancer::VERSION}",
-    'X-Powered-By' => "Perl Dancer ${Dancer::VERSION}",
+    'Server'       => "Perl Dancer (patched by Perlover) ${Dancer::VERSION}",
+    'X-Powered-By' => "Perl Dancer (patched by Perlover) ${Dancer::VERSION}",
   ];
 
 is $i, 0, 'never gone to redirect_from';