FIX Dancer::HTTP::status so direct access with code number don't break the status line generated

Author: Alexis Sukrieh

lib/Dancer/HTTP.pm

@@ -27,16 +27,17 @@ my $HTTP_CODES = {
 # aliases
 for my $code ( keys %$HTTP_CODES ) {
 	my $alias = lc join '_', split /\W/, $HTTP_CODES->{$code};
-    $alias =~ s/^\d+_//;
-	$HTTP_CODES->{$alias} = $code . ' ' . $HTTP_CODES->{$code};
+    my $status_line = $code . ' ' . $HTTP_CODES->{$code};
+	$HTTP_CODES->{$alias} = $status_line;
+    $HTTP_CODES->{$code} = $status_line;
 }
 
 # own aliases
 $HTTP_CODES->{error} = $HTTP_CODES->{internal_server_error};
 
 sub status { 
     my $name = shift;
-    return undef unless exists $HTTP_CODES->{$name};
+    die "unknown HTTP status code: $name" unless exists $HTTP_CODES->{$name};
     return "HTTP/1.0 " . $HTTP_CODES->{$name} . "\r\n";
 }
 

t/02_http_request/001_basic_request.t

@@ -13,7 +13,6 @@ my $port = 8888;
 set port => $port;
 set access_log => false;
 
-
 get '/' => sub { "been here" };
 get '/error' => sub { send_error "foo" };
 

t/03_route_handler/09_status.t

@@ -21,7 +21,7 @@ foreach my $test (@tests) {
     Dancer::SharedData->cgi($cgi);
     my $response = Dancer::Renderer::get_action_response();
 
-    is(Dancer::HTTP::status($response->{status}), "HTTP/1.0 $expected", 
+    is(Dancer::HTTP::status($response->{status}), "HTTP/1.0 $expected\r\n", 
         "status looks good for $method $path");
 }