<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Here is the error in my apache log:<div><br></div><div><div>[Wed Apr 01 21:14:51 2015] [error] Type of arg 1 to push must be array (not private variable) at /usr/local/share/perl5/FS/Report/FCC_477.pm line 326, near "$eh\n    }"\nCompilation failed in requi<span style="font-size: 12pt;">re at /usr/local/share/perl5/FS/Mason.pm line 147.\nBEGIN failed--compilation aborted at /usr/local/share/perl5/FS/Mason.pm line 147.\nCompilation failed in require at /usr/local/etc/freeside/handl</span><span style="font-size: 12pt;">er.pl line 7.\nBEGIN failed--compilation aborted at /usr/local/etc/freeside/handler.pl line 7.\nCompilation failed in require at (eval 2) line 1.\n</span></div><div><span style="font-size: 12pt;">[Wed Apr 01 21:14:51 2015] [error] Can't load Perl file: /usr/local/etc/freeside/handler.pl for server myisp.***REMOVED***:80, exiting...</span></div></div><div><span style="font-size: 12pt;"><br></span></div><div><span style="font-size: 12pt;">Here is a section of FCC_477.pm, you will see my notes below I have added. If I comment out the section Apache starts up just fine.</span></div><div><br></div><div><div>sub report {</div><div>  my $class = shift;</div><div>  my $section = shift;</div><div>  my %opt = @_;</div><div>  $opt{detail} = 1;</div><div><br></div><div>  # add the error column</div><div>  <span style="font-size: 12pt;">my $data = $class->report_data($section, %opt);</span></div><div>  my $error = [];</div><div>  my $detail = [];</div><div>  my $check_method = $section.'_check';</div><div>  my $num_errors = 0;</div><div> </div><div>#### THIS SECTION BELOW IS COMMENTED OUT SO APACHE STARTS #####</div><div> #foreach my $row (@$data) {</div><div> #   if ( $class->can($check_method) ) { # they don't all have these</div><div> #    my $eh = $class->$check_method( $row );</div><div> #     $num_errors++ if keys(%$eh);</div><div> #     push $error, $eh</div><div> #   }</div><div> #   push @$detail, pop @$row; # this comes from the query</div><div> # }  <--- THIS IS LINE 326</div><div>### END OF COMMENTS ###</div><div>  return +{</div><div>    data => $data,</div><div>    error => $error,</div><div>    detail => $detail,</div><div>    num_errors => $num_errors,</div><div>  };</div><div>}</div><div><br></div><div>Please help.</div></div><div><br></div><div>Robert Terpe</div>                                          </div></body>
</html>