Nagios-Plugin/lib/Nagios Plugin.pm,1.7,1.8

Update of /cvsroot/nagiosplug/Nagios-Plugin/lib/Nagios
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv6692/lib/Nagios

Modified Files:
        Plugin.pm 
Log Message:
Fix Nagios::Plugin->new( shortname => "ANYTHING" ); (Wolfgang Barth)


Index: Plugin.pm
===================================================================
RCS file: /cvsroot/nagiosplug/Nagios-Plugin/lib/Nagios/Plugin.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Plugin.pm   11 Sep 2006 01:57:26 -0000      1.7
+++ Plugin.pm   25 Sep 2006 18:40:20 -0000      1.8
@@ -6,6 +6,7 @@
 use Class::Struct;
 struct "Nagios::__::Plugin" => {
        perfdata => '@',
+       shortname => '$',
        };
 
 package Nagios::Plugin;
@@ -38,9 +39,6 @@
 
 sub set_thresholds { shift; Nagios::Plugin::Threshold->set_thresholds(@_); }
 
-my $shortname;
-sub shortname { shift; @_ ? $shortname = shift : $shortname }
-
 sub die {
        my $self = shift;
        Nagios::Plugin::Base::die(@_, { plugin => $self });


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV