SOURCES: perl-t-syslog.patch (NEW) - update t/syslog.t to fail if ...

[glen]

Author: glen                         Date: Tue Feb 26 07:32:21 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- update t/syslog.t to fail if /dev/log does not exist

---- Files affected:
SOURCES:
   perl-t-syslog.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/perl-t-syslog.patch
diff -u /dev/null SOURCES/perl-t-syslog.patch:1.1
--- /dev/null	Tue Feb 26 08:32:21 2008
+++ SOURCES/perl-t-syslog.patch	Tue Feb 26 08:32:15 2008
@@ -0,0 +1,15 @@
+--- perl-5.10.0/ext/Sys/Syslog/t/syslog.t~	2008-02-26 07:24:29.000000000 +0000
++++ perl-5.10.0/ext/Sys/Syslog/t/syslog.t	2008-02-26 07:24:34.000000000 +0000
+@@ -201,7 +201,11 @@
+         }
+     }
+     else  {
+-        ok( $r, "setlogsock() should return true: '$r'" );
++		if (-r "/dev/log") {
++			ok( $r, "setlogsock() should return true: '$r'" );
++		} else {
++			ok( !$r, "setlogsock() should return false: '$r'" );
++        }
+     }
+ 
+     # setlogsock() with "stream" and an empty path
================================================================