Changeset f0df47bf7cd0bf026c99520f70d8143ef90b12d2

Show
Ignore:
Timestamp:
03/21/10 20:23:28 (4 years ago)
Author:
Mark Harrison <mark@omniti.com>
git-committer:
Mark Harrison <mark@omniti.com> 1269203008 +0000
git-parent:

[1e192996f122a4915bf3fd4a5be4703e54437575]

git-author:
Mark Harrison <mark@omniti.com> 1269203008 +0000
Message:

Add 'use warnings' everywhere. Fix warnings

git-svn-id: https://labs.omniti.com/resmon/branches/resmon2@279 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • lib/Resmon/Config.pm

    r1e19299 rf0df47b  
    22 
    33use strict; 
     4use warnings; 
    45 
    56sub new { 
  • lib/Resmon/ExtComm.pm

    rf51cc7c rf0df47b  
    22 
    33use strict; 
     4use warnings; 
    45require Exporter; 
    56use vars qw/@ISA @EXPORT/; 
  • lib/Resmon/Module.pm

    rb4a01ee rf0df47b  
    11package Resmon::Module; 
    22use strict; 
     3use warnings; 
    34 
    45sub new { 
  • lib/Resmon/Status.pm

    ra1fc8c1 rf0df47b  
    22 
    33use strict; 
     4use warnings; 
    45use POSIX qw/:sys_wait_h/; 
    56use IO::Handle; 
     
    294295            my $info = $self->{store}->{$1}->{$2}; 
    295296            my $response = qq^<?xml version="1.0" encoding="UTF-8"?>\n^; 
    296             my $response .= qq^<?xml-stylesheet type="text/xsl" href="/resmon.xsl"?>^; 
     297            $response .= qq^<?xml-stylesheet type="text/xsl" href="/resmon.xsl"?>^; 
    297298            $response .= "<ResmonResults>\n". 
    298299            xml_info($1,$2,$info). 
     
    305306        if(exists($self->{store}->{$1})) { 
    306307            my $response = qq^<?xml version="1.0" encoding="UTF-8"?>\n^; 
    307             my $response .= qq^<?xml-stylesheet type="text/xsl" href="/resmon.xsl"?>^; 
     308            $response .= qq^<?xml-stylesheet type="text/xsl" href="/resmon.xsl"?>^; 
    308309            $response .= "<ResmonResults>\n". 
    309310            $self->dump_generic_module(\&xml_info,$1) . 
  • resmon

    r1e19299 rf0df47b  
    88 
    99use strict; 
     10use warnings; 
    1011use Time::HiRes qw( gettimeofday tv_interval sleep ); 
    1112use POSIX qw( :sys_wait_h setsid ); 
     
    9394            my $starttime = [gettimeofday]; 
    9495            # Get old status if it hasn't expired 
    95             my $check_metric = $monitor_obj->get_cached_metrics(); 
     96            $check_metric = $monitor_obj->get_cached_metrics(); 
    9697            # Otherwise, run the check 
    9798            if (!$check_metric) {