- update t/syslog.t to fail if /dev/log does not exist

Changed files:
    perl-t-syslog.patch -> 1.1

diff --git a/perl-t-syslog.patch b/perl-t-syslog.patch
new file mode 100644 (file)
index 0000000..c41b5a3
--- /dev/null
+++ b/perl-t-syslog.patch
@@ -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