From: ivan <ivan>
Date: Tue, 3 Mar 2009 23:41:03 +0000 (+0000)
Subject: eliminate harmless "Odd number of elements in hash assignment" warning
X-Git-Tag: root_of_webpay_support~5
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=0afb8f9e5fa926907c43fa4a316b65e3aa834e71

eliminate harmless "Odd number of elements in hash assignment" warning
---

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;