---- 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 @@
+--- 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 {
+- 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
+ $r = eval { setlogsock("stream", '' ) } || '';
%define perl_modversion() %([ -f %{SOURCE3} ] && awk -vp=%1 '$1 == p{m=$1; gsub(/::/, "-", m); printf("perl-%s = %s\\n", m, $3)}END{if (!m) printf("# Error looking up [%s]\\n", p)}' %{SOURCE3} || echo ERROR)
%define ver 5.12.3
-%define rel 1
+%define rel 2
Summary: Practical Extraction and Report Language (Perl)
Summary(cs.UTF-8): Programovací jazyk Perl
Summary(da.UTF-8): Programmeringssproget Perl