From 0afb8f9e5fa926907c43fa4a316b65e3aa834e71 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 3 Mar 2009 23:41:03 +0000
Subject: eliminate harmless "Odd number of elements in hash assignment"
 warning

---
 FS/FS/queue.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/FS/FS/queue.pm b/FS/FS/queue.pm
index 61cee0a8a..381e418c9 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;
-- 
cgit v1.2.1