r71247 - in /trunk/libnagios-object-perl: Build.PL ChangeLog META.yml debian/changelog debian/compat debian/control debian/rules lib/Nagios/Object.pm lib/Nagios/Object/Config.pm

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sat Mar 12 13:36:52 UTC 2011 

Author: jawnsy-guest
Date: Sat Mar 12 13:36:29 2011
New Revision: 71247

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71247
Log:
New upstream release

Modified:
    trunk/libnagios-object-perl/Build.PL
    trunk/libnagios-object-perl/ChangeLog
    trunk/libnagios-object-perl/META.yml
    trunk/libnagios-object-perl/debian/changelog
    trunk/libnagios-object-perl/debian/compat
    trunk/libnagios-object-perl/debian/control
    trunk/libnagios-object-perl/debian/rules
    trunk/libnagios-object-perl/lib/Nagios/Object.pm
    trunk/libnagios-object-perl/lib/Nagios/Object/Config.pm

Modified: trunk/libnagios-object-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/Build.PL?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/Build.PL (original)
+++ trunk/libnagios-object-perl/Build.PL Sat Mar 12 13:36:29 2011
@@ -13,7 +13,7 @@
     },
 
     dist_name      => 'Nagios-Object',
-    dist_version   => "0.21.14",
+    dist_version   => "0.21.15",
     dist_author    => 'Duncan Ferguson <duncs at cpan.org>',
     dist_abstract  => 'Nagios::Object - Nagios object configuration parsing.',
     license        => 'gpl',

Modified: trunk/libnagios-object-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/ChangeLog?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/ChangeLog (original)
+++ trunk/libnagios-object-perl/ChangeLog Sat Mar 12 13:36:29 2011
@@ -117,3 +117,5 @@
         - Ensure host membership lists are consistent. Thanks to PIRZYK (RT#63808)
         - Allow for name() method to not be unique on service objects.  Thanks to PIRZYK (RT#63806)
 0.21.14 - Re-release to include extra test files missed previously
+0.21.15 - Fixed timeperiod in host type should not be an Array.  Thanks to PIRZYK (RT#66347)
+        - Fixed notes field does not support having a ';' in it.   Thanks to PIRZYK (RT#66348)

Modified: trunk/libnagios-object-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/META.yml?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/META.yml (original)
+++ trunk/libnagios-object-perl/META.yml Sat Mar 12 13:36:29 2011
@@ -39,10 +39,10 @@
     version: 0.1
   Nagios::Object:
     file: lib/Nagios/Object.pm
-    version: 45
+    version: 46
   Nagios::Object::Config:
     file: lib/Nagios/Object/Config.pm
-    version: 39
+    version: 40
   Nagios::Program::Status:
     file: lib/Nagios/StatusLog.pm
     version: 0.1
@@ -65,4 +65,4 @@
   homepage: http://github.com/duncs/perl-nagios-object
   license: http://www.gnu.org/licenses/old-licenses/gpl-1.0.txt
   repository: http://github.com/duncs/perl-nagios-object
-version: v0.21.14
+version: v0.21.15

Modified: trunk/libnagios-object-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/debian/changelog?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/debian/changelog (original)
+++ trunk/libnagios-object-perl/debian/changelog Sat Mar 12 13:36:29 2011
@@ -1,3 +1,9 @@
+libnagios-object-perl (0.21.15-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Fri, 11 Mar 2011 21:12:50 -0500
+
 libnagios-object-perl (0.21.14-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libnagios-object-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/debian/compat?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/debian/compat (original)
+++ trunk/libnagios-object-perl/debian/compat Sat Mar 12 13:36:29 2011
@@ -1,1 +1,1 @@
-7
+8

Modified: trunk/libnagios-object-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/debian/control?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/debian/control (original)
+++ trunk/libnagios-object-perl/debian/control Sat Mar 12 13:36:29 2011
@@ -1,8 +1,10 @@
 Source: libnagios-object-perl
 Section: perl
 Priority: optional
-Build-Depends: perl, debhelper (>= 7.0.50)
-Build-Depends-Indep: libtest-exception-perl, libtest-nowarnings-perl,
+Build-Depends: debhelper (>= 8)
+Build-Depends-Indep: perl,
+ libtest-exception-perl,
+ libtest-nowarnings-perl,
  liblist-compare-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jose Luis Rivas <ghostbar38 at gmail.com>,

Modified: trunk/libnagios-object-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/debian/rules?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/debian/rules (original)
+++ trunk/libnagios-object-perl/debian/rules Sat Mar 12 13:36:29 2011
@@ -1,7 +1,13 @@
 #!/usr/bin/make -f
+
+PACKAGE = $(shell dh_listpackages)
+TMP     = $(CURDIR)/debian/$(PACKAGE)
 
 %:
 	dh $@
 
 override_dh_auto_configure:
-	dh_auto_configure -- --install_path bin=usr/share/doc/libnagios-object-perl/examples/ --install_path bindoc=usr/share/doc/libnagios-object-perl/examples/ --install_path script=usr/share/doc/libnagios-object-perl/examples/
+	dh_auto_configure -- \
+		--install_path bin=usr/share/doc/$(PACKAGE)/examples/ \
+		--install_path bindoc=usr/share/doc/$(PACKAGE)/examples/ \
+		--install_path script=usr/share/doc/$(PACKAGE)/examples/

Modified: trunk/libnagios-object-perl/lib/Nagios/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/lib/Nagios/Object.pm?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/lib/Nagios/Object.pm (original)
+++ trunk/libnagios-object-perl/lib/Nagios/Object.pm Sat Mar 12 13:36:29 2011
@@ -28,7 +28,7 @@
 
 # NOTE: due to CPAN version checks this cannot currently be changed to a
 # standard version string, i.e. '0.21'
-our $VERSION   = '45';
+our $VERSION   = '46';
 our $pre_link  = undef;
 our $fast_mode = undef;
 our %nagios_setup;
@@ -154,7 +154,7 @@
         process_perf_data            => [ 'BINARY', 280 ],
         retain_status_information    => [ 'BINARY', 280 ],
         retain_nonstatus_information => [ 'BINARY', 280 ],
-        notification_period => [ ['Nagios::TimePeriod'], 280 ],
+        notification_period => [ 'Nagios::TimePeriod', 280 ],
         notification_interval => [ 'INTEGER', 280 ],
         notification_options => [ [qw(d u r)], 280 ],
         notifications_enabled => [ 'BINARY', 280 ],

Modified: trunk/libnagios-object-perl/lib/Nagios/Object/Config.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnagios-object-perl/lib/Nagios/Object/Config.pm?rev=71247&op=diff
==============================================================================
--- trunk/libnagios-object-perl/lib/Nagios/Object/Config.pm (original)
+++ trunk/libnagios-object-perl/lib/Nagios/Object/Config.pm Sat Mar 12 13:36:29 2011
@@ -27,7 +27,7 @@
 
 # NOTE: due to CPAN version checks this cannot currently be changed to a
 # standard version string, i.e. '0.21'
-our $VERSION     = '39';
+our $VERSION     = '40';
 our $fast_mode   = undef;
 our $strict_mode = undef;
 
@@ -268,16 +268,19 @@
         # this is an attribute inside an object definition
         elsif ($in_definition) {
             $line =~ s/\s*;(.*)$//;
+            my $comment = $1;
 
             # the comment stripped off of $line is saved in $1 due to the ()
             # around .*, so it's saved in the object if supported
             if ( !$fast_mode && $1 && $current->can('set_comment') ) {
-                $current->set_comment($1);
+                $current->set_comment($comment);
             }
 
             my ( $key, $val ) = split( /\s+/, $line, 2 );
             my $set_method = 'set_' . $key;
             if ( $current->can($set_method) ) {
+                # Put back the comment if we have a notes key.
+                $val .= ';' . $comment if ( $key eq 'notes' && defined $comment );
                 $current->$set_method($val);
             }
             elsif ($strict_mode) {

More information about the Pkg-perl-cvs-commits mailing list