Changeset 8698 for trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

Timestamp:

Aug 29, 2006, 4:19:16 PM (20 years ago)

Author:

jhoblitt

Message:

fix [more] array dereferencing errors

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm (modified) (3 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Stats.pm,v 1.4 2006-08-30 00:40:32 jhoblitt Exp $
+# $Id: Stats.pm,v 1.5 2006-08-30 02:19:16 jhoblitt Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -133 +133 @@
     
     # Get mean, stdev, mean stdev for the background
-    if (scalar @$self->{bg_data} > 0) {
+    if (scalar @{$self->{bg_data}} > 0) {
         my $meanStats = Statistics::Descriptive::Sparse->new(); # Statistics for mean
-        $meanStats->add_data(@$self->{bg_data});
+        $meanStats->add_data(@{$self->{bg_data}});
         $self->bg_mean($meanStats->mean());
         $self->bg_stdev($meanStats->standard_deviation());
@@ -142 +142 @@
         $self->bg_stdev(undef);
     }
-    if (scalar @$self->{bg_stdev_data} > 0) {
+    if (scalar @{$self->{bg_stdev_data}} > 0) {
         my $stdevStats = Statistics::Descriptive::Sparse->new(); # Statistics for standard deviation
-        $stdevStats->add_data(@$self->{bg_stdev_data});
+        $stdevStats->add_data(@{$self->{bg_stdev_data}});
         $self->bg_mean_stdev($stdevStats->mean());
     } else {