perl-t-syslog.patch

   1 --- perl-5.10.1/ext/Sys-Syslog/t/syslog.t.orig  2009-08-25 10:25:36.000000000 +0200
   2 +++ perl-5.10.1/ext/Sys-Syslog/t/syslog.t       2009-08-25 10:27:58.000000000 +0200
   3 @@ -213,7 +213,11 @@
   4          }
   5      }
   6      else  {
   7 -        ok( $r, "setlogsock() should return true: '$r'" );
   8 +           if (-r "/dev/log") {
   9 +                    ok( $r, "setlogsock() should return true: '$r'" );
  10 +            } else {
  11 +                    ok( !$r, "setlogsock() should return false: '$r'" );
  12 +           }
  13      }
  14
  15      # setlogsock() with "stream" and an empty path