perl-t-syslog.patch

   1 --- perl-5.10.0/ext/Sys/Syslog/t/syslog.t~      2008-02-26 07:24:29.000000000 +0000
   2 +++ perl-5.10.0/ext/Sys/Syslog/t/syslog.t       2008-02-26 07:24:34.000000000 +0000
   3 @@ -201,7 +201,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