[packages/perl.git] / perl-t-syslog.patch

--- perl-5.12.0/cpan/Sys-Syslog/t/syslog.t~	2008-02-26 07:24:29.000000000 +0000
+++ perl-5.12.0/cpan/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
Commit	Line	Data
253f30cb	1	--- perl-5.12.0/cpan/Sys-Syslog/t/syslog.t~ 2008-02-26 07:24:29.000000000 +0000
253f30cb	2	+++ perl-5.12.0/cpan/Sys-Syslog/t/syslog.t 2008-02-26 07:24:34.000000000 +0000
3240f754	3	@@ -201,7 +201,11 @@
873ccd8a ER	4	}
	5	}
	6	else {
	7	- ok( $r, "setlogsock() should return true: '$r'" );
3240f754	8	+ if (-r "/dev/log") {
	9	+ ok( $r, "setlogsock() should return true: '$r'" );
	10	+ } else {
	11	+ ok( !$r, "setlogsock() should return false: '$r'" );
	12	+ }
873ccd8a ER	13	}
	14
	15	# setlogsock() with "stream" and an empty path