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

--- perl-5.12.3/cpan/Sys-Syslog/t/syslog.t~	2011-02-21 19:02:35.662388256 +0100
+++ perl-5.12.3/cpan/Sys-Syslog/t/syslog.t	2011-02-21 19:02:54.904308246 +0100
@@ -205,9 +205,6 @@
             ok( !$r, "setlogsock() on Cygwin without syslog-ng should return false: '$r'" );
         }
     }
-    else  {
-        ok( $r, "setlogsock() should return true: '$r'" );
-    }
 
     # setlogsock() with "stream" and an empty path
     $r = eval { setlogsock("stream", '' ) } || '';
Commit	Line	Data
	1	--- perl-5.12.3/cpan/Sys-Syslog/t/syslog.t~ 2011-02-21 19:02:35.662388256 +0100
	2	+++ perl-5.12.3/cpan/Sys-Syslog/t/syslog.t 2011-02-21 19:02:54.904308246 +0100
	3	@@ -205,9 +205,6 @@
	4	ok( !$r, "setlogsock() on Cygwin without syslog-ng should return false: '$r'" );
	5	}
	6	}
	7	- else {
	8	- ok( $r, "setlogsock() should return true: '$r'" );
	9	- }
	10
	11	# setlogsock() with "stream" and an empty path
	12	$r = eval { setlogsock("stream", '' ) } \|\| '';