Hello community,

here is the log from the commit of package perl-Log-Log4perl for 
openSUSE:Factory checked in at 2012-05-31 17:08:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Log-Log4perl (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Log-Log4perl.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Log-Log4perl", Maintainer is "u...@suse.com"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Log-Log4perl/perl-Log-Log4perl.changes      
2011-12-21 10:02:26.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Log-Log4perl.new/perl-Log-Log4perl.changes 
2012-05-31 17:08:49.000000000 +0200
@@ -1,0 +2,15 @@
+Wed May 30 11:18:04 UTC 2012 - co...@suse.com
+
+- updated to 1.36
+   *    (ms) [rt.cpan.org #74833] Reini Urban fixed "defined @array" for
+             perl 5.16
+   *    (ms) [rt.cpan.org #74836] Cope with Carp's questionable decision to
+             add a trailing dot to its messages.
+
+   *    (ms) [rt.cpan.org #73462] Changed logwarn/logcluck/logcarp/error_warn 
+             to warn() unconditionally and send the message to log4perl which
+             will log it only if the log level conditions are met.
+   *    (ms) [rt.cpan.org #73598] Gerda Shank reported test suite problems
+             with DBD::CSV-0.26. Bumped up to DBD::CSV-0.33 if installed.
+
+-------------------------------------------------------------------

Old:
----
  Log-Log4perl-1.34.tar.gz

New:
----
  Log-Log4perl-1.36.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Log-Log4perl.spec ++++++
--- /var/tmp/diff_new_pack.felyyF/_old  2012-05-31 17:08:50.000000000 +0200
+++ /var/tmp/diff_new_pack.felyyF/_new  2012-05-31 17:08:50.000000000 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Log-Log4perl
 #
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -16,10 +16,8 @@
 #
 
 
-%bcond_with test
-
 Name:           perl-Log-Log4perl
-Version:        1.34
+Version:        1.36
 Release:        0
 %define cpan_name Log-Log4perl
 Summary:        Log4j implementation for Perl
@@ -29,32 +27,11 @@
 Source:         
http://www.cpan.org/authors/id/M/MS/MSCHILLI/%{cpan_name}-%{version}.tar.gz
 BuildArch:      noarch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
-%{perl_requires}
 BuildRequires:  perl
 BuildRequires:  perl-macros
-%if %{with test}
-# fix build cycle, do not enable
-BuildRequires:  perl(Log::Dispatch::FileRotate) >= 1.10
-BuildRequires:  perl(Log::Dispatch)
-BuildRequires:  perl(XML::DOM) > 1.29
-BuildRequires:  rrdtool
-%endif
-BuildRequires:  perl(File::Spec) >= 0.82
-BuildRequires:  perl(Test::More) >= 0.45
-# other not perl || perl-base
-#BuildRequires:  perl(DBI) >= 1.607
-#BuildRequires:  perl(DBD::CSV) >= 0.22
-#BuildRequires:  perl(IO::Socket::INET)
-####
-#Requires:       perl(DBI) >= 1.607
-#Requires:       perl(IO::Socket::INET)
-Requires:       perl(Log::Dispatch)
-Requires:       perl(Log::Dispatch::FileRotate) >= 1.10
-Requires:       perl(XML::DOM) > 1.29
-#
-Requires:       perl(File::Spec) >= 0.82
-Requires:       perl(Test::More) >= 0.45
+# MANUAL
 Requires:       rrdtool
+%{perl_requires}
 
 %description
 Log::Log4perl lets you remote-control and fine-tune the logging behaviour
@@ -121,11 +98,8 @@
 %perl_process_packlist
 %perl_gen_filelist
 
-%clean
-%{__rm} -rf %{buildroot}
-
 %files -f %{name}.files
 %defattr(-,root,root,755)
-%doc Changes LICENSE README eg xml ldap
+%doc Changes LICENSE README
 
 %changelog

++++++ Log-Log4perl-1.34.tar.gz -> Log-Log4perl-1.36.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/Changes 
new/Log-Log4perl-1.36/Changes
--- old/Log-Log4perl-1.34/Changes       2011-11-05 06:40:01.000000000 +0100
+++ new/Log-Log4perl-1.36/Changes       2012-02-22 08:38:53.000000000 +0100
@@ -1,6 +1,20 @@
 ##################################################
  Revision history for Log::Log4perl
 ##################################################
+
+1.36 (2012/02/11)
+   *    (ms) [rt.cpan.org #74833] Reini Urban fixed "defined @array" for
+             perl 5.16
+   *    (ms) [rt.cpan.org #74836] Cope with Carp's questionable decision to
+             add a trailing dot to its messages.
+
+1.35 (2012/01/03)
+   *    (ms) [rt.cpan.org #73462] Changed logwarn/logcluck/logcarp/error_warn 
+             to warn() unconditionally and send the message to log4perl which
+             will log it only if the log level conditions are met.
+   *    (ms) [rt.cpan.org #73598] Gerda Shank reported test suite problems
+             with DBD::CSV-0.26. Bumped up to DBD::CSV-0.33 if installed.
+
 1.34 (2011/11/04)
    *    (ms) InternalDebug now replaces all instances of INTERNAL_DEBUG,
              not just the first one.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/MANIFEST 
new/Log-Log4perl-1.36/MANIFEST
--- old/Log-Log4perl-1.34/MANIFEST      2011-11-05 06:42:09.000000000 +0100
+++ new/Log-Log4perl-1.36/MANIFEST      2012-02-22 08:39:00.000000000 +0100
@@ -146,7 +146,9 @@
 t/deeper1.expected
 t/deeper6.expected
 t/deeper7.expected
+t/lib/Log4perlInternalTest.pm
 t/testdisp.pl
 xml/log4j-1.2.dtd
 xml/log4perl.dtd
-META.yml                                 Module meta-data (added by MakeMaker)
+META.yml                                 Module YAML meta-data (added by 
MakeMaker)
+META.json                                Module JSON meta-data (added by 
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/MANIFEST.SKIP 
new/Log-Log4perl-1.36/MANIFEST.SKIP
--- old/Log-Log4perl-1.34/MANIFEST.SKIP 2011-11-05 06:40:02.000000000 +0100
+++ new/Log-Log4perl-1.36/MANIFEST.SKIP 2012-02-22 08:38:53.000000000 +0100
@@ -18,3 +18,5 @@
 t/047-ldap.t
 .git
 test.log
+MYMETA.json
+MYMETA.yml
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/META.json 
new/Log-Log4perl-1.36/META.json
--- old/Log-Log4perl-1.34/META.json     1970-01-01 01:00:00.000000000 +0100
+++ new/Log-Log4perl-1.36/META.json     2012-02-22 08:39:00.000000000 +0100
@@ -0,0 +1,48 @@
+{
+   "abstract" : "Log4j implementation for Perl",
+   "author" : [
+      "Mike Schilli <m...@perlmeister.com>"
+   ],
+   "dynamic_config" : 1,
+   "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter 
version 2.120351",
+   "license" : [
+      "unknown"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+      "version" : "2"
+   },
+   "name" : "Log-Log4perl",
+   "no_index" : {
+      "directory" : [
+         "t",
+         "inc"
+      ]
+   },
+   "prereqs" : {
+      "build" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
+      "configure" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
+      "runtime" : {
+         "requires" : {
+            "File::Spec" : "0.82",
+            "Test::More" : "0.45"
+         }
+      }
+   },
+   "release_status" : "stable",
+   "resources" : {
+      "repository" : {
+         "url" : "http://github.com/mschilli/log4perl";
+      },
+      "x_MailingList" : "mailto:log4perl-de...@lists.sourceforge.net";
+   },
+   "version" : "1.36"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/META.yml 
new/Log-Log4perl-1.36/META.yml
--- old/Log-Log4perl-1.34/META.yml      2011-11-05 06:42:09.000000000 +0100
+++ new/Log-Log4perl-1.36/META.yml      2012-02-22 08:38:59.000000000 +0100
@@ -1,26 +1,26 @@
---- #YAML:1.0
-name:               Log-Log4perl
-version:            1.34
-abstract:           Log4j implementation for Perl
+---
+abstract: 'Log4j implementation for Perl'
 author:
-    - Mike Schilli <m...@perlmeister.com>
-license:            unknown
-distribution_type:  module
-configure_requires:
-    ExtUtils::MakeMaker:  0
+  - 'Mike Schilli <m...@perlmeister.com>'
 build_requires:
-    ExtUtils::MakeMaker:  0
+  ExtUtils::MakeMaker: 0
+configure_requires:
+  ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 
2.120351'
+license: unknown
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+name: Log-Log4perl
+no_index:
+  directory:
+    - t
+    - inc
 requires:
-    File::Spec:  0.82
-    Test::More:  0.45
+  File::Spec: 0.82
+  Test::More: 0.45
 resources:
-    MailingList:  mailto:log4perl-de...@lists.sourceforge.net
-    repository:   http://github.com/mschilli/log4perl
-no_index:
-    directory:
-        - t
-        - inc
-generated_by:       ExtUtils::MakeMaker version 6.55_02
-meta-spec:
-    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
-    version:  1.4
+  repository: http://github.com/mschilli/log4perl
+  x_MailingList: mailto:log4perl-de...@lists.sourceforge.net
+version: 1.36
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/README new/Log-Log4perl-1.36/README
--- old/Log-Log4perl-1.34/README        2011-11-05 06:42:08.000000000 +0100
+++ new/Log-Log4perl-1.36/README        2012-02-22 08:38:59.000000000 +0100
@@ -1,5 +1,5 @@
 ######################################################################
-    Log::Log4perl 1.34
+    Log::Log4perl 1.36
 ######################################################################
 
 NAME
@@ -277,13 +277,21 @@
 
     you can use the following:
 
-        $logger->logwarn();
         $logger->logdie();
 
-    These print out log messages in the WARN and FATAL level, respectively,
-    and then call the built-in warn() and die() functions. Since there is an
-    ERROR level between WARN and FATAL, there are two additional helper
-    functions in case you'd like to use ERROR for either warn() or die():
+    And if instead of using
+
+        warn($message);
+        $logger->warn($message);
+
+    to both issue a warning via Perl's warn() mechanism and make sure you
+    have the same message in the log file as well, use:
+
+        $logger->logwarn();
+
+    Since there is an ERROR level between WARN and FATAL, there are two
+    additional helper functions in case you'd like to use ERROR for either
+    warn() or die():
 
         $logger->error_warn();
         $logger->error_die();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/lib/Log/Log4perl/Config.pm 
new/Log-Log4perl-1.36/lib/Log/Log4perl/Config.pm
--- old/Log-Log4perl-1.34/lib/Log/Log4perl/Config.pm    2011-11-05 
06:40:02.000000000 +0100
+++ new/Log-Log4perl-1.36/lib/Log/Log4perl/Config.pm    2012-02-22 
08:38:53.000000000 +0100
@@ -872,7 +872,7 @@
     }
     else {
         # give back 'undef' instead of an empty arrayref
-        unless( defined @Log::Log4perl::ALLOWED_CODE_OPS_IN_CONFIG_FILE ) {
+        unless( @Log::Log4perl::ALLOWED_CODE_OPS_IN_CONFIG_FILE ) {
             return;
         }
     }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/lib/Log/Log4perl/Logger.pm 
new/Log-Log4perl-1.36/lib/Log/Log4perl/Logger.pm
--- old/Log-Log4perl-1.34/lib/Log/Log4perl/Logger.pm    2011-11-05 
06:40:02.000000000 +0100
+++ new/Log-Log4perl-1.36/lib/Log/Log4perl/Logger.pm    2012-02-22 
08:38:53.000000000 +0100
@@ -862,8 +862,9 @@
     my @chomped = @_;
     chomp($chomped[-1]);
     $self->warn(@chomped);
-    $self->and_warn(@_);
   }
+
+  $self->and_warn(@_);
 }
 
 ##################################################
@@ -923,8 +924,9 @@
     foreach (split(/\n/, $message)) {
       $self->warn("$_\n");
     }
-    Carp::cluck($msg);
   }
+
+  Carp::cluck($msg);
 }
 
 ##################################################
@@ -944,8 +946,9 @@
     foreach (split(/\n/, $message)) {
       $self->warn("$_\n");
     }
-    Carp::carp($msg) if $Log::Log4perl::LOGDIE_MESSAGE_ON_STDERR;
   }
+
+  Carp::carp($msg);
 }
 
 ##################################################
@@ -1012,8 +1015,9 @@
 
   if ($self->is_error()) {
     $self->error(@_);
-    $self->and_warn(@_);
   }
+
+  $self->and_warn(@_);
 }
 
 ##################################################
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/lib/Log/Log4perl.pm 
new/Log-Log4perl-1.36/lib/Log/Log4perl.pm
--- old/Log-Log4perl-1.34/lib/Log/Log4perl.pm   2011-11-05 06:40:13.000000000 
+0100
+++ new/Log-Log4perl-1.36/lib/Log/Log4perl.pm   2012-02-22 08:38:53.000000000 
+0100
@@ -14,7 +14,7 @@
 use Log::Log4perl::Config;
 use Log::Log4perl::Appender;
 
-our $VERSION = '1.34';
+our $VERSION = '1.36';
 
    # set this to '1' if you're using a wrapper
    # around Log::Log4perl
@@ -898,11 +898,19 @@
 
 you can use the following:
 
-    $logger->logwarn();
     $logger->logdie();
 
-These print out log messages in the WARN and FATAL level, respectively,
-and then call the built-in warn() and die() functions. Since there is
+And if instead of using
+
+    warn($message);
+    $logger->warn($message);
+
+to both issue a warning via Perl's warn() mechanism and make sure you have
+the same message in the log file as well, use:
+
+    $logger->logwarn();
+
+Since there is
 an ERROR level between WARN and FATAL, there are two additional helper
 functions in case you'd like to use ERROR for either warn() or die():
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/t/022Wrap.t 
new/Log-Log4perl-1.36/t/022Wrap.t
--- old/Log-Log4perl-1.34/t/022Wrap.t   2011-11-05 06:40:03.000000000 +0100
+++ new/Log-Log4perl-1.36/t/022Wrap.t   2012-02-22 08:38:53.000000000 +0100
@@ -74,6 +74,10 @@
 my $buf = $app0->buffer();
 $buf =~ s#(\S+022Wrap\.t)#basename( $1 )#eg;
 
+# [rt 74836] Carp.pm added a dot at the end with 1.25. 
+# Be dot-agnostic.
+$buf =~ s/\.$//;
+
 is($buf,
     "File: 022Wrap.t Line number: $line package: main " .
     "trace: at 022Wrap.t line $line",
@@ -87,7 +91,10 @@
 $rootlogger->debug("Hello");
 
   # Win32
+# [rt 74836] Carp.pm added a dot at the end with 1.25. 
+# Be dot-agnostic.
 $buf = $app0->buffer();
+$buf =~ s/\.$//;
 $buf =~ s#(\S+022Wrap\.t)#basename( $1 )#eg;
 
 is($buf,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/t/024WarnDieCarp.t 
new/Log-Log4perl-1.36/t/024WarnDieCarp.t
--- old/Log-Log4perl-1.34/t/024WarnDieCarp.t    2011-11-05 06:40:03.000000000 
+0100
+++ new/Log-Log4perl-1.36/t/024WarnDieCarp.t    2012-02-22 08:38:53.000000000 
+0100
@@ -62,12 +62,28 @@
 
   eval { &$method($in_str) };
   
-  unlike($warnstr, qr/$out_str/, 
+  unlike($warnstr, qr/\Q$out_str\E/, 
        "$mname($in_str): STDERR does NOT contain \"$out_str\"");
   unlike($app->buffer(), qr/$out_str/, 
        "$mname($in_str): Buffer does NOT contain \"$out_str\"");
 }
 
+# warn() still prints to stderr, but nothing gets logged
+sub warndietest_stderronly {
+  my ($method, $in_str, $out_str, $app, $mname) = @_;
+
+  eval { &$method($in_str) };
+  
+  my($pkg, $file, $line) = caller();
+
+    # it's in stderr
+  like($warnstr, qr/\Q$out_str\E/, 
+       "$mname($in_str): STDERR does contain \"$out_str\" ($file:$line)");
+    # but not logged by log4perl
+  unlike($app->buffer(), qr/$out_str/, 
+       "$mname($in_str): Buffer does NOT contain \"$out_str\" ($file:$line)");
+}
+
 # same as above, just look for no output in buffer, but output in STDERR
 sub dietest_nooutput {
   my ($method, $in_str, $out_str, $app, $mname) = @_;
@@ -107,7 +123,8 @@
 }
 
 ######################################################################
-# change the log level to ERROR... warns should produce nothing now
+# change the log level to ERROR... warns should produce nothing in 
+# log4perl now, but logwarn still triggers warn()
 
 $log->level($ERROR);
 
@@ -119,7 +136,7 @@
 
 foreach my $f ("logwarn", "logcarp", "logcluck",
     ) {
-  warndietest_nooutput(sub {$log->$f(@_)}, "Test $test: $f", "Test $test: $f", 
$app, "$f");
+  warndietest_stderronly(sub {$log->$f(@_)}, "Test $test: $f", "Test $test: 
$f", $app, "$f");
   $test++;
 }
 
@@ -129,7 +146,7 @@
 $log->level($OFF); # $OFF == $FATAL... although I suspect thats a bug in the 
log4j spec
 
 foreach my $f ("logwarn", "logcarp", "logcluck", "error_warn") {
-  warndietest_nooutput(sub {$log->$f(@_)}, "Test $test: $f", "Test $test: $f", 
$app, "$f");
+  warndietest_stderronly(sub {$log->$f(@_)}, "Test $test: $f", "Test $test: 
$f", $app, "$f");
   $test++;
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/t/034DBI.t 
new/Log-Log4perl-1.36/t/034DBI.t
--- old/Log-Log4perl-1.34/t/034DBI.t    2011-11-05 06:40:03.000000000 +0100
+++ new/Log-Log4perl-1.36/t/034DBI.t    2012-02-22 08:38:53.000000000 +0100
@@ -10,23 +10,35 @@
     }
 }
 
-use Test::More;
+BEGIN {
+    use FindBin qw($Bin);
+    use lib "$Bin/lib";
+    require Log4perlInternalTest;
+}
 
+use Test::More;
 use Log::Log4perl;
 use warnings;
 use strict;
 
 BEGIN {
+    my $minversion = \%Log::Log4perl::Internal::Test::MINVERSION;
     eval {
         require DBI;
+        die if $DBI::VERSION < $minversion->{ "DBI" };
+
         require DBD::CSV;
+        die if $DBD::CSV::VERSION < $minversion->{ "DBD::CSV" };
+
         require SQL::Statement;
-        die if $DBI::VERSION < 1.607;
-        die if $DBD::CSV::VERSION < 0.22;
-        die if $SQL::Statement::VERSION < 1.20;
+        die if $SQL::Statement::VERSION < $minversion->{ "SQL::Statement" };
     };
     if ($@) {
-        plan skip_all => "DBI 1.607 or DBD::CSV 0.22 or SQL::Statement 1.20 
not installed, skipping tests\n";
+        plan skip_all => 
+          "DBI $minversion->{ DBI } or " .
+          "DBD::CSV $minversion->{'DBD::CSV'} or " .
+          "SQL::Statement $minversion->{'SQL::Statement'} " .
+          "not installed, skipping tests\n";
     }else{
         plan tests => 32;
     }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/t/035JDBCAppender.t 
new/Log-Log4perl-1.36/t/035JDBCAppender.t
--- old/Log-Log4perl-1.34/t/035JDBCAppender.t   2011-11-05 06:40:03.000000000 
+0100
+++ new/Log-Log4perl-1.36/t/035JDBCAppender.t   2012-02-22 08:38:53.000000000 
+0100
@@ -3,6 +3,9 @@
 # Kevin Goess <c...@goess.org>
 ###########################################
 
+use strict;
+use warnings;
+
 BEGIN { 
     if($ENV{INTERNAL_DEBUG}) {
         require Log::Log4perl::InternalDebug;
@@ -15,12 +18,22 @@
 use Log::Log4perl;
 
 BEGIN {
+    use FindBin qw($Bin);
+    use lib "$Bin/lib";
+    require Log4perlInternalTest;
+}
+
+BEGIN {
+    my $minversion = \%Log::Log4perl::Internal::Test::MINVERSION;
     eval {
         require DBD::CSV;
+        die if $DBD::CSV::VERSION < $minversion->{ "DBD::CSV" };
+
        require Log::Dispatch;
     };
     if ($@) {
-        plan skip_all => "only with Log::Dispatch and DBD::CSV";
+        plan skip_all => 
+          "only with Log::Dispatch and DBD::CSV $minversion->{'DBD::CSV'}";
     }else{
         plan tests => 14;
     }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/t/051Extra.t 
new/Log-Log4perl-1.36/t/051Extra.t
--- old/Log-Log4perl-1.34/t/051Extra.t  2011-11-05 06:40:03.000000000 +0100
+++ new/Log-Log4perl-1.36/t/051Extra.t  2012-02-22 08:38:53.000000000 +0100
@@ -68,7 +68,7 @@
 my $line_ref = __LINE__ + 1;
 LOGCARP("logcarp");
 
-is(readstderr(), "", "No output to stderr");
+like(readstderr(), qr/logcarp at /, "Output to stderr");
 SKIP: { use Carp;
     skip "Detected buggy Carp.pm (upgrade to perl-5.8.*)", 3 unless 
         defined $Carp::VERSION;
@@ -76,7 +76,7 @@
     $line_ref += 9;
     $buf->buffer("");
     LOGCARP("logcarp");
-    is(readstderr(), "", "No output to stderr");
+    like(readstderr(), qr/logcarp at /, "Output to stderr");
     like($buf->buffer(), qr/logcarp.*$line_ref/, "Appender output intact");
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Log-Log4perl-1.34/t/lib/Log4perlInternalTest.pm 
new/Log-Log4perl-1.36/t/lib/Log4perlInternalTest.pm
--- old/Log-Log4perl-1.34/t/lib/Log4perlInternalTest.pm 1970-01-01 
01:00:00.000000000 +0100
+++ new/Log-Log4perl-1.36/t/lib/Log4perlInternalTest.pm 2012-02-22 
08:38:53.000000000 +0100
@@ -0,0 +1,33 @@
+package Log::Log4perl::Internal::Test;
+use strict;
+use warnings;
+
+# We don't require any of these modules for testing, but if they're 
+# installed, we require minimal versions.
+
+our %MINVERSION = qw(
+    DBI            1.607
+    DBD::CSV       0.33
+    SQL::Statement 1.20
+);
+
+1;
+
+__END__
+
+=head1 NAME
+
+Log::Log4perl::Internal::Test - Internal Test Utilities for Log4perl
+
+=head1 SYNOPSIS
+
+    use Log::Log4perl::Internal::Test;
+
+=head1 DESCRIPTION
+
+Some general-purpose test routines and constants to be used in the Log4perl
+test suite.
+
+=head1 AUTHOR
+
+2012, Mike Schilli <c...@perlmeister.com>

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

Reply via email to