diff options
author | ivan <ivan> | 2009-03-03 23:41:03 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-03-03 23:41:03 +0000 |
commit | 0afb8f9e5fa926907c43fa4a316b65e3aa834e71 (patch) | |
tree | 800d999be3cdf4f3dae7959dd52759cd1c4b879f /FS/FS/queue.pm | |
parent | 0d957a0f6008f301af282e134681088ba952c6f5 (diff) |
eliminate harmless "Odd number of elements in hash assignment" warning
Diffstat (limited to 'FS/FS/queue.pm')
-rw-r--r-- | FS/FS/queue.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/FS/FS/queue.pm b/FS/FS/queue.pm index 61cee0a..381e418 100644 --- a/FS/FS/queue.pm +++ b/FS/FS/queue.pm @@ -127,7 +127,12 @@ sub insert { local $FS::UID::AutoCommit = 0; my $dbh = dbh; - my %args = @args; + my %args = (); + { + no warnings "misc"; + %args = @args; + } + $self->custnum( $args{'custnum'} ) if $args{'custnum'}; my $error = $self->SUPER::insert; |