- rebuild with perl 5.18.0

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

diff --git a/perl-t-syslog.patch b/perl-t-syslog.patch
index c41b5a33db981c5c713d95f91266c0f28ab085cc..844b0f32368d0f65b8f832855a1f9fe8e3852e96 100644 (file)
--- a/perl-t-syslog.patch
+++ b/perl-t-syslog.patch
@@ -1,14 +1,14 @@
---- perl-5.10.0/ext/Sys/Syslog/t/syslog.t~     2008-02-26 07:24:29.000000000 +0000
-+++ perl-5.10.0/ext/Sys/Syslog/t/syslog.t      2008-02-26 07:24:34.000000000 +0000
+--- 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'" );
++                      ok( 1, "setlogsock() should return true: '$r'" );
 +              } else {
-+                      ok( !$r, "setlogsock() should return false: '$r'" );
++                      ok( 1, "setlogsock() should return false: '$r'" );
 +        }
      }