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=cbd5a370da7cb0e7046fb0de5e3f419c69beda0f

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 e8f27f84c..75ddee0d7 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
   }