]>
Commit | Line | Data |
---|---|---|
873ccd8a ER |
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 |