diff options
| -rw-r--r-- | LedgerSMB/Mailer.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/LedgerSMB/Mailer.pm b/LedgerSMB/Mailer.pm index 6ff22c62..a650d4e1 100644 --- a/LedgerSMB/Mailer.pm +++ b/LedgerSMB/Mailer.pm @@ -125,10 +125,14 @@ sub attach { carp "Message not prepared" unless ref $self->{_message}; # strip path from output name - my $file = $args{filename}; - my $strip = quotemeta $args{strip}; - $file =~ s/(.*\/|$strip)//g; + my $file; + if ($args{filename}) { + my $strip = quotemeta $args{strip}; + $file = $args{filename}; + $file =~ s/(.*\/|$strip)//g; + } + # handle both string and file types of input my @data; if ($args{data}) { @data = ('Data', $args{data}); |