diff options
-rwxr-xr-x | LedgerSMB.pm | 3 |
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; |