[Nagiosplug-checkins] Nagios-Plugin/lib/Nagios Plugin.pm,1.7,1.8

[Ton Voon]

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 });