Adding copy=> and merge=>\@list args to DBObject->new

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1174 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 2 insertions, 2 deletions

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 3f15ecc7..b3d6e1dd 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -460,8 +460,8 @@ sub call_procedure {
 sub is_allowed_role {
     my $self = shift @_;
     my %args = @_;
-    my @roles = @{$args{allowed_roles}}
-    for $role (@roles){
+    my @roles = @{$args{allowed_roles}};
+    for my $role (@roles){
         if (scalar(grep /^$role$/, $self->{_roles})){
             return 1;
         }