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

Timestamp:

Aug 29, 2006, 2:40:32 PM (20 years ago)

Author:

jhoblitt

Message:

fix array dereferencing errors

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm (modified) (4 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.3 2006-08-23 05:25:07 price Exp $
+# $Id: Stats.pm,v 1.4 2006-08-30 00:40:32 jhoblitt Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -80 +80 @@
                                 }
                                 $bgStdevName = $cellItem->{name};
-                                push @$self->{bg_stdev_data}, $cellItem->{value};
+                                push @{$self->{bg_stdev_data}}, $cellItem->{value};
                             } else {
                                 if (defined $bgName) {
@@ -88 +88 @@
                                 }
                                 $bgName = $cellItem->{name};
-                                push @$self->{bg_data}, $cellItem->{value};
+                                push @{$self->{bg_data}}, $cellItem->{value};
                             }
                         } else {
@@ -144 +144 @@
     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 {