From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 11 Dec 2014 03:31:45 +0000 (-0800)
Subject: quiet push on reference is experimental warning on new perl
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a63883fa4d6944e534c2cfbea1b32ec907d53ffe

quiet push on reference is experimental warning on new perl
---

diff --git a/FS/FS/Report/FCC_477.pm b/FS/FS/Report/FCC_477.pm
index af45b2dac..93c8dd38e 100644
--- a/FS/FS/Report/FCC_477.pm
+++ b/FS/FS/Report/FCC_477.pm
@@ -322,7 +322,7 @@ sub report {
     if ( $class->can($check_method) ) { # they don't all have these
       my $eh = $class->$check_method( $row );
       $num_errors++ if keys(%$eh);
-      push $error, $eh
+      push @$error, $eh
     }
     push @$detail, pop @$row; # this comes from the query
   }