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
================================================================
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
