r61090 - in /branches/upstream/liblog-handler-perl/current: ChangeLog MANIFEST MANIFEST.SKIP META.yml Makefile.PL lib/Log/Handler.pm lib/Log/Handler/Output/DBI.pm
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Mon Aug 2 17:32:19 UTC 2010
Author: carnil-guest
Date: Mon Aug 2 17:31:24 2010
New Revision: 61090
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61090
Log:
[svn-upgrade] new version liblog-handler-perl (0.65)
Removed:
branches/upstream/liblog-handler-perl/current/MANIFEST.SKIP
Modified:
branches/upstream/liblog-handler-perl/current/ChangeLog
branches/upstream/liblog-handler-perl/current/MANIFEST
branches/upstream/liblog-handler-perl/current/META.yml
branches/upstream/liblog-handler-perl/current/Makefile.PL
branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm
branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/DBI.pm
Modified: branches/upstream/liblog-handler-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/ChangeLog?rev=61090&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/ChangeLog (original)
+++ branches/upstream/liblog-handler-perl/current/ChangeLog Mon Aug 2 17:31:24 2010
@@ -1,3 +1,8 @@
+0.65 Released at 2010-08-02.
+ - Modified Log::Handler::Output::DBI. Oracle is unable
+ to handle "select 1". The statement is changed to
+ "select 1 from dual".
+
0.64 Released at 2010-01-29.
- Fixed a bug in Email.pm on line 256 - $string can be
uninitialized.
Modified: branches/upstream/liblog-handler-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/MANIFEST?rev=61090&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/MANIFEST (original)
+++ branches/upstream/liblog-handler-perl/current/MANIFEST Mon Aug 2 17:31:24 2010
@@ -40,7 +40,6 @@
LICENCE
Makefile.PL
MANIFEST This list of files
-MANIFEST.SKIP
META.yml
README
t/000-use.t
Modified: branches/upstream/liblog-handler-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/META.yml?rev=61090&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/META.yml (original)
+++ branches/upstream/liblog-handler-perl/current/META.yml Mon Aug 2 17:31:24 2010
@@ -1,6 +1,6 @@
---
name: Log-Handler
-version: 0.64
+version: 0.65
author:
- Jonny Schulz
abstract: Log messages to several outputs.
@@ -26,12 +26,10 @@
IO::Socket: 0
Net::SMTP: 0
YAML: 0
-configure_requires:
- Module::Build: 0.35
provides:
Log::Handler:
file: lib/Log/Handler.pm
- version: 0.64
+ version: 0.65
Log::Handler::Config:
file: lib/Log/Handler/Config.pm
version: 0.07
@@ -43,7 +41,7 @@
version: 0.08
Log::Handler::Output::DBI:
file: lib/Log/Handler/Output/DBI.pm
- version: 0.09
+ version: 0.10
Log::Handler::Output::Email:
file: lib/Log/Handler/Output/Email.pm
version: 0.08
@@ -74,7 +72,7 @@
Log::Handler::Plugin::YAML:
file: lib/Log/Handler/Plugin/YAML.pm
version: 0.03
-generated_by: Module::Build version 0.35
+generated_by: Module::Build version 0.280801
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: branches/upstream/liblog-handler-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/Makefile.PL?rev=61090&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/Makefile.PL (original)
+++ branches/upstream/liblog-handler-perl/current/Makefile.PL Mon Aug 2 17:31:24 2010
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.35
+# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
use ExtUtils::MakeMaker;
WriteMakefile
(
Modified: branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm?rev=61090&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm (original)
+++ branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm Mon Aug 2 17:31:24 2010
@@ -1114,7 +1114,7 @@
use UNIVERSAL;
use base qw(Log::Handler::Levels);
-our $VERSION = "0.64";
+our $VERSION = "0.65";
our $ERRSTR = "";
# $TRACE and $CALLER_LEVEL are both used as global
Modified: branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/DBI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/DBI.pm?rev=61090&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/DBI.pm (original)
+++ branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/DBI.pm Mon Aug 2 17:31:24 2010
@@ -274,7 +274,7 @@
use Carp;
use Params::Validate qw();
-our $VERSION = "0.09";
+our $VERSION = "0.10";
our $ERRSTR = "";
sub new {
@@ -325,14 +325,19 @@
my $self = shift;
if ($self->{persistent} && $self->{dbh}) {
- eval { $self->{dbh}->do("select 1") or die DBI->errstr };
- return 1 unless $@;
+ if ($self->{use_ping}) {
+ if ($self->{dbh}->ping) {
+ return 1;
+ }
+ } else {
+ eval { $self->{dbh}->do($self->{pingstmt}) or die DBI->errstr };
+ return 1 unless $@;
+ }
}
if ($self->{debug}) {
warn "Connect to the database: $self->{cstr}->[0] ...";
}
-
my $dbh = DBI->connect(@{$self->{cstr}})
or return $self->_raise_error("DBI connect error: ".DBI->errstr);
@@ -468,6 +473,11 @@
dbi_params => {
type => Params::Validate::HASHREF,
default => { PrintError => 0, AutoCommit => 1 },
+ },
+ use_ping => {
+ type => Params::Validate::SCALAR,
+ regex => qr/^[01]\z/,
+ default => 0,
},
debug => {
type => Params::Validate::SCALAR,
@@ -543,6 +553,12 @@
$options{statement} .= ")";
}
+ if ($options{driver} =~ /oracle/i) {
+ $options{pingstmt} = "select 1 from dual";
+ } else {
+ $options{pingstmt} = "select 1";
+ }
+
return \%options;
}
More information about the Pkg-perl-cvs-commits
mailing list