INN commit: branches/2.6 (6 files)

INN Commit rra at isc.org
Sat Oct 8 20:37:37 UTC 2016


    Date: Saturday, October 8, 2016 @ 13:37:36
  Author: iulius
Revision: 10076

Fix Perl warning when Sys::Syslog version is not numeric
 
Change "<" to "lt" to avoid the following warning:
  Argument "0.33_01" isn't numeric in numeric lt (<)

Modified:
  branches/2.6/backends/news2mail.in
  branches/2.6/backends/send-uucp.in
  branches/2.6/control/controlchan.in
  branches/2.6/control/perl-nocem.in
  branches/2.6/frontends/cnfsstat.in
  branches/2.6/frontends/mailpost.in

------------------------+
 backends/news2mail.in  |    2 +-
 backends/send-uucp.in  |    2 +-
 control/controlchan.in |    2 +-
 control/perl-nocem.in  |    2 +-
 frontends/cnfsstat.in  |    2 +-
 frontends/mailpost.in  |    2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)

Modified: backends/news2mail.in
===================================================================
--- backends/news2mail.in	2016-10-08 20:37:08 UTC (rev 10075)
+++ backends/news2mail.in	2016-10-08 20:37:36 UTC (rev 10076)
@@ -46,7 +46,7 @@
 eval { require Sys::Syslog; import Sys::Syslog; $use_syslog = 1; };
 
 if ($use_syslog) {
-    if ($Sys::Syslog::VERSION < 0.15) {
+    if ($Sys::Syslog::VERSION lt 0.15) {
         eval "sub Sys::Syslog::_PATH_LOG { '/dev/log' }" if $^O eq 'dec_osf';
         Sys::Syslog::setlogsock('unix') if $^O =~ /linux|dec_osf|freebsd|darwin/;
     }

Modified: backends/send-uucp.in
===================================================================
--- backends/send-uucp.in	2016-10-08 20:37:08 UTC (rev 10075)
+++ backends/send-uucp.in	2016-10-08 20:37:36 UTC (rev 10076)
@@ -53,7 +53,7 @@
 eval { require Sys::Syslog; import Sys::Syslog; $use_syslog = 1; };
 
 if ($use_syslog) {
-    if ($Sys::Syslog::VERSION < 0.15) {
+    if ($Sys::Syslog::VERSION lt 0.15) {
         eval "sub Sys::Syslog::_PATH_LOG { '/dev/log' }" if $^O eq 'dec_osf';
         Sys::Syslog::setlogsock('unix') if $^O =~ /linux|dec_osf|freebsd|darwin/;
     }

Modified: control/controlchan.in
===================================================================
--- control/controlchan.in	2016-10-08 20:37:08 UTC (rev 10075)
+++ control/controlchan.in	2016-10-08 20:37:36 UTC (rev 10076)
@@ -70,7 +70,7 @@
 }
 
 if ($use_syslog) {
-    if ($Sys::Syslog::VERSION < 0.15) {
+    if ($Sys::Syslog::VERSION lt 0.15) {
         eval "sub Sys::Syslog::_PATH_LOG { '/dev/log' }" if $^O eq 'dec_osf';
         Sys::Syslog::setlogsock('unix') if $^O =~ /linux|dec_osf|freebsd|darwin/;
     }

Modified: control/perl-nocem.in
===================================================================
--- control/perl-nocem.in	2016-10-08 20:37:08 UTC (rev 10075)
+++ control/perl-nocem.in	2016-10-08 20:37:36 UTC (rev 10076)
@@ -56,7 +56,7 @@
 eval { require Sys::Syslog; import Sys::Syslog; $use_syslog = 1; };
 
 if ($use_syslog) {
-    if ($Sys::Syslog::VERSION < 0.15) {
+    if ($Sys::Syslog::VERSION lt 0.15) {
         eval "sub Sys::Syslog::_PATH_LOG { '/dev/log' }" if $^O eq 'dec_osf';
         Sys::Syslog::setlogsock('unix') if $^O =~ /linux|dec_osf|freebsd|darwin/;
     }

Modified: frontends/cnfsstat.in
===================================================================
--- frontends/cnfsstat.in	2016-10-08 20:37:08 UTC (rev 10075)
+++ frontends/cnfsstat.in	2016-10-08 20:37:36 UTC (rev 10076)
@@ -64,7 +64,7 @@
 if ($opt{'s'}) {
     eval { require Sys::Syslog; import Sys::Syslog; $use_syslog = 1 };
     if ($use_syslog) {
-        if ($Sys::Syslog::VERSION < 0.15) {
+        if ($Sys::Syslog::VERSION lt 0.15) {
             eval "sub Sys::Syslog::_PATH_LOG { '/dev/log' }" if $^O eq 'dec_osf';
             Sys::Syslog::setlogsock('unix') if $^O =~ /linux|dec_osf|freebsd|darwin/;
         }

Modified: frontends/mailpost.in
===================================================================
--- frontends/mailpost.in	2016-10-08 20:37:08 UTC (rev 10075)
+++ frontends/mailpost.in	2016-10-08 20:37:36 UTC (rev 10076)
@@ -45,7 +45,7 @@
 eval { require Sys::Syslog; import Sys::Syslog; $use_syslog = 1; };
 
 if ($use_syslog) {
-    if ($Sys::Syslog::VERSION < 0.15) {
+    if ($Sys::Syslog::VERSION lt 0.15) {
         eval "sub Sys::Syslog::_PATH_LOG { '/dev/log' }" if $^O eq 'dec_osf';
         Sys::Syslog::setlogsock('unix') if $^O =~ /linux|dec_osf|freebsd|darwin/;
     }



More information about the inn-committers mailing list