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

Timestamp:

May 23, 2008, 5:00:14 PM (18 years ago)

Author:

Paul Price

Message:

OK, not such a useful idea --- it can't deal with when we die with an error code.

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.30 2008-05-24 02:56:01 price Exp $
+# $Id: Stats.pm,v 1.31 2008-05-24 03:00:14 price Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -12 +12 @@
 use Carp qw( carp );
 use Statistics::Descriptive;
-use Sys::Hostname;
 
 use PS::IPP::Config qw(
@@ -44 +43 @@
     # add a hash for storage
     foreach my $entry (@$entries) {
-        if ($entry->{type} eq "host") {
-            $entry->{value} = hostname();
-            next;
-        }
         $entry->{data} = [];
     }
@@ -94 +89 @@
         my $type = $entry->{type};
         my $data = $entry->{data};
-
-        if ($entry->{type} eq "host") {
-            # Dealt with in new()
-            next;
-        }
 
         if ($type eq "constant") {