summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 31cb577c..b50b779d 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -179,6 +179,9 @@ sub is_blank {
my $self = shift @_;
my %args = @_;
my $name = $args{name};
+ if (not defined $name){
+ # TODO: Raise error
+ }
my $rc;
if ( $self->{$name} =~ /^\s*$/ ) {
$rc = 1;