Release 0.02

[manu/RT-Extension-MessageSizeLimit.git] / lib / RT / Extension / MessageSizeLimit.pm

diff --git a/lib/RT/Extension/MessageSizeLimit.pm b/lib/RT/Extension/MessageSizeLimit.pm
index c7c1d61..2ffc843 100644 (file)
--- a/lib/RT/Extension/MessageSizeLimit.pm
+++ b/lib/RT/Extension/MessageSizeLimit.pm
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package RT::Extension::MessageSizeLimit;
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 NAME
 
@@ -103,10 +103,10 @@ sub CheckMessageSizeLimit {
     my $size = 0;
 
     # Compute subject size
-    $size += length($args{Subject});
+    $size += length($args{Subject}) if ( $args{Subject} );
 
     # Compute body size
-    $size += length($args{Content});
+    $size += length($args{Content}) if ( $args{Content} );
 
     # Add attachments sizes if any
     foreach my $file_name ( keys %{$args{'Attachments'}} ) {