show just first 40 chars of error message

diff --git a/lib/MojoFacets.pm b/lib/MojoFacets.pm
index ee69548..1f34ea8 100644 (file)
--- a/lib/MojoFacets.pm
+++ b/lib/MojoFacets.pm
@@ -60,7 +60,7 @@ sub startup {
        
        eval 'use MojoFacets::Plugin::NYTProf';
        if ( $@ ) {
-               warn "profile disabled: $@" if $@;
+               warn "profile disabled: ",substr($@,0,40) if $@;
        } else {
                MojoFacets::Plugin::NYTProf->register( $self );
        }