remove CR from code snippets

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index ba724b1..337c8c3 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -647,7 +647,8 @@ sub items {
        my $data = $self->_loaded('data');
 
        my $code = $self->_param_scalar('code','');
-       $code =~ s{[\r\n]+$}{\n}s;
+       $code =~ s{\r}{}gs;
+       $code =~ s{\n+$}{\n}s;
 
        my $commit = $self->param('commit');
        my $test = $self->param('test');