[svn:dbd-oracle] r15212 - in dbd-oracle/branches/DBD-Oracle-1.41_00: . lib/DBD lib/DBD/Oracle t
[email protected] Mon, 12 Mar 2012 12:56:45 -0700 (PDT)
| Newsgroups | perl.dbd.oracle.changes |
|---|---|
| Message-ID | <[email protected]> |
Author: yanick
Date: Mon Mar 12 12:56:45 2012
New Revision: 15212
Modified:
dbd-oracle/branches/DBD-Oracle-1.41_00/Changes
dbd-oracle/branches/DBD-Oracle-1.41_00/LICENSE
dbd-oracle/branches/DBD-Oracle-1.41_00/META.json
dbd-oracle/branches/DBD-Oracle-1.41_00/META.yml
dbd-oracle/branches/DBD-Oracle-1.41_00/README
dbd-oracle/branches/DBD-Oracle-1.41_00/README.mkdn
dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle.pm
dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/GetInfo.pm
dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/Object.pm
dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/Troubleshooting.pm
dbd-oracle/branches/DBD-Oracle-1.41_00/t/000-report-versions.t
dbd-oracle/branches/DBD-Oracle-1.41_00/t/rt74753-utf8-encoded.t
Log:
don't run test if db not unicode
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/Changes
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/Changes (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/Changes Mon Mar 12 12:56:45 2012
@@ -1,5 +1,8 @@
Revision history for DBD::Oracle
+1.41_00 2012-03-12
+ - skip rt74753-utf8-encoded.t if db is not unicode
+
1.40 2012-03-08
- promote 1.39_00 to official release
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/LICENSE
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/LICENSE (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/LICENSE Mon Mar 12 12:56:45 2012
@@ -18,15 +18,16 @@
The GNU General Public License, Version 1, February 1989
- GNU GENERAL PUBLIC LICENSE
- Version 1, February 1989
+ GNU GENERAL PUBLIC LICENSE
+ Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
- Preamble
+ Preamble
The license agreements of most software companies try to keep users
at the mercy of those companies. By contrast, our General Public
@@ -67,7 +68,7 @@
The precise terms and conditions for copying, distribution and
modification follow.
- GNU GENERAL PUBLIC LICENSE
+ GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License Agreement applies to any program or other work which
@@ -185,7 +186,7 @@
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
- NO WARRANTY
+ NO WARRANTY
9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
@@ -207,9 +208,9 @@
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
- END OF TERMS AND CONDITIONS
+ END OF TERMS AND CONDITIONS
- Appendix: How to Apply These Terms to Your New Programs
+ Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it
@@ -235,8 +236,9 @@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
+
Also add information on how to contact you by electronic and paper mail.
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/META.json
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/META.json (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/META.json Mon Mar 12 12:56:45 2012
@@ -6,7 +6,7 @@
"Yanick Champoux <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.300005, CPAN::Meta::Converter version 2.112150",
+ "generated_by" : "Dist::Zilla version 4.300009, CPAN::Meta::Converter version 2.120630",
"license" : [
"perl_5"
],
@@ -23,62 +23,62 @@
},
"runtime" : {
"requires" : {
- "DBI" : 0,
- "DynaLoader" : 0,
- "Exporter" : 0,
+ "DBI" : "0",
+ "DynaLoader" : "0",
+ "Exporter" : "0",
"perl" : "5.006",
- "strict" : 0,
- "warnings" : 0
+ "strict" : "0",
+ "warnings" : "0"
}
},
"test" : {
"requires" : {
- "Carp" : 0,
- "Config" : 0,
- "Data::Dumper" : 0,
- "Devel::Peek" : 0,
- "Encode" : 0,
- "Math::BigInt" : 0,
- "Oraperl" : 0,
- "Scalar::Util" : 0,
+ "Carp" : "0",
+ "Config" : "0",
+ "Data::Dumper" : "0",
+ "Devel::Peek" : "0",
+ "Encode" : "0",
+ "Math::BigInt" : "0",
+ "Oraperl" : "0",
+ "Scalar::Util" : "0",
"Test::More" : "0.94",
- "Thread::Semaphore" : 0,
- "utf8" : 0,
- "vars" : 0
+ "Thread::Semaphore" : "0",
+ "utf8" : "0",
+ "vars" : "0"
}
}
},
"provides" : {
"DBD::Oracle" : {
"file" : "lib/DBD/Oracle.pm",
- "version" : "1.40"
+ "version" : "1.41_00"
},
"DBD::Oracle::GetInfo" : {
"file" : "lib/DBD/Oracle/GetInfo.pm",
- "version" : "1.40"
+ "version" : "1.41_00"
},
"DBD::Oracle::Object" : {
"file" : "lib/DBD/Oracle/Object.pm",
- "version" : "1.40"
+ "version" : "1.41_00"
},
"DBD::Oracle::Troubleshooting" : {
"file" : "lib/DBD/Oracle/Troubleshooting.pm",
- "version" : "1.40"
+ "version" : "1.41_00"
},
"DBD::Oracle::db" : {
"file" : "lib/DBD/Oracle.pm",
- "version" : "1.40"
+ "version" : "1.41_00"
},
"DBD::Oracle::dr" : {
"file" : "lib/DBD/Oracle.pm",
- "version" : "1.40"
+ "version" : "1.41_00"
},
"DBD::Oracle::st" : {
"file" : "lib/DBD/Oracle.pm",
- "version" : "1.40"
+ "version" : "1.41_00"
}
},
- "release_status" : "stable",
+ "release_status" : "testing",
"resources" : {
"bugtracker" : {
"mailto" : "bug-dbd-oracle at rt.cpan.org",
@@ -87,11 +87,11 @@
"homepage" : "http://search.cpan.org/dist/DBD-Oracle/",
"repository" : {
"type" : "git",
- "url" : "git://github.com/yanick/DBD-Oracle.git",
- "web" : "http://github.com/yanick/DBD-Oracle/tree"
+ "url" : "https://github.com/yanick/DBD-Oracle.git",
+ "web" : "https://github.com/yanick/DBD-Oracle"
}
},
- "version" : "1.40",
+ "version" : "1.41_00",
"x_authority" : "cpan:PYTHIAN"
}
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/META.yml
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/META.yml (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/META.yml Mon Mar 12 12:56:45 2012
@@ -20,7 +20,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.30
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300005, CPAN::Meta::Converter version 2.112150'
+generated_by: 'Dist::Zilla version 4.300009, CPAN::Meta::Converter version 2.120630'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -29,25 +29,25 @@
provides:
DBD::Oracle:
file: lib/DBD/Oracle.pm
- version: 1.40
+ version: 1.41_00
DBD::Oracle::GetInfo:
file: lib/DBD/Oracle/GetInfo.pm
- version: 1.40
+ version: 1.41_00
DBD::Oracle::Object:
file: lib/DBD/Oracle/Object.pm
- version: 1.40
+ version: 1.41_00
DBD::Oracle::Troubleshooting:
file: lib/DBD/Oracle/Troubleshooting.pm
- version: 1.40
+ version: 1.41_00
DBD::Oracle::db:
file: lib/DBD/Oracle.pm
- version: 1.40
+ version: 1.41_00
DBD::Oracle::dr:
file: lib/DBD/Oracle.pm
- version: 1.40
+ version: 1.41_00
DBD::Oracle::st:
file: lib/DBD/Oracle.pm
- version: 1.40
+ version: 1.41_00
requires:
DBI: 0
DynaLoader: 0
@@ -58,6 +58,6 @@
resources:
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=DBD-Oracle
homepage: http://search.cpan.org/dist/DBD-Oracle/
- repository: git://github.com/yanick/DBD-Oracle.git
-version: 1.40
+ repository: https://github.com/yanick/DBD-Oracle.git
+version: 1.41_00
x_authority: cpan:PYTHIAN
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/README
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/README (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/README Mon Mar 12 12:56:45 2012
@@ -2,7 +2,7 @@
DBD::Oracle - Oracle database driver for the DBI module
VERSION
- version 1.40
+ version 1.41_00
SYNOPSIS
use DBI;
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/README.mkdn
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/README.mkdn (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/README.mkdn Mon Mar 12 12:56:45 2012
@@ -4,7 +4,7 @@
# VERSION
-version 1.40
+version 1.41_00
# SYNOPSIS
@@ -40,16 +40,13 @@
ORA_LONGRAW ORA_CHAR ORA_CHARZ ORA_MLSLABEL ORA_XMLTYPE ORA_CLOB ORA_BLOB
ORA_RSET ORA_VARCHAR2_TABLE ORA_NUMBER_TABLE SQLT_INT SQLT_FLT ORA_OCI
SQLT_CHR SQLT_BIN
-
- SQLCS_IMPLICIT
-
- SQLCS_NCHAR
SQLCS_IMPLICIT and SQLCS_NCHAR are _character set form_ values.
See notes about Unicode elsewhere in this document.
- SQLT_INT
-
- SQLT_FLT
These types are used only internally, and may be specified as internal
@@ -85,7 +82,6 @@
- :ora_exe_modes
OCI_STMT_SCROLLABLE_READONLY
-
- :ora_fail_over
OCI_FO_END OCI_FO_ABORT OCI_FO_REAUTH OCI_FO_BEGIN OCI_FO_ERROR
@@ -1680,11 +1676,8 @@
Which will return all the ids into @out_values.
- __Note:__
-
- This will only work for numbered (?) placeholders,
-
- The third parameter of bind_param_inout_array, (0 in the example), "maxlen" is required by DBI but not used by DBD::Oracle
-
- The "ora_type" attribute is not needed but only ORA_VARCHAR2 will work.
### Returning A Recordset
@@ -1835,7 +1828,6 @@
"\tarr=",Data::Dumper::Dumper(\@arr),"\n";
- __Note:__
-
- Take careful note that we use '\\@arr' here because the 'bind_param_inout'
will only take a reference to a scalar.
@@ -4208,17 +4200,9 @@
# AUTHORS
-- *
-
-Tim Bunce <[email protected]>
-
-- *
-
-John Scoles
-
-- *
-
-Yanick Champoux <[email protected]>
+- Tim Bunce <[email protected]>
+- John Scoles
+- Yanick Champoux <[email protected]>
# COPYRIGHT AND LICENSE
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle.pm
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle.pm (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle.pm Mon Mar 12 12:56:45 2012
@@ -12,7 +12,7 @@
{
package DBD::Oracle;
{
- $DBD::Oracle::VERSION = '1.40';
+ $DBD::Oracle::VERSION = '1.41_00';
}
BEGIN {
$DBD::Oracle::AUTHORITY = 'cpan:PYTHIAN';
@@ -125,7 +125,7 @@
{ package DBD::Oracle::dr;
{
- $DBD::Oracle::dr::VERSION = '1.40';
+ $DBD::Oracle::dr::VERSION = '1.41_00';
}
BEGIN {
$DBD::Oracle::dr::AUTHORITY = 'cpan:PYTHIAN';
@@ -330,7 +330,7 @@
{ package DBD::Oracle::db;
{
- $DBD::Oracle::db::VERSION = '1.40';
+ $DBD::Oracle::db::VERSION = '1.41_00';
}
BEGIN {
$DBD::Oracle::db::AUTHORITY = 'cpan:PYTHIAN';
@@ -1028,7 +1028,7 @@
{ package DBD::Oracle::st;
{
- $DBD::Oracle::st::VERSION = '1.40';
+ $DBD::Oracle::st::VERSION = '1.41_00';
}
BEGIN {
$DBD::Oracle::st::AUTHORITY = 'cpan:PYTHIAN';
@@ -1133,7 +1133,7 @@
=head1 VERSION
-version 1.40
+version 1.41_00
=head1 SYNOPSIS
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/GetInfo.pm
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/GetInfo.pm (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/GetInfo.pm Mon Mar 12 12:56:45 2012
@@ -1,6 +1,6 @@
package DBD::Oracle::GetInfo;
{
- $DBD::Oracle::GetInfo::VERSION = '1.40';
+ $DBD::Oracle::GetInfo::VERSION = '1.41_00';
}
BEGIN {
$DBD::Oracle::GetInfo::AUTHORITY = 'cpan:PYTHIAN';
@@ -295,7 +295,7 @@
=head1 VERSION
-version 1.40
+version 1.41_00
=head1 AUTHORS
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/Object.pm
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/Object.pm (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/Object.pm Mon Mar 12 12:56:45 2012
@@ -1,6 +1,6 @@
package DBD::Oracle::Object;
{
- $DBD::Oracle::Object::VERSION = '1.40';
+ $DBD::Oracle::Object::VERSION = '1.41_00';
}
BEGIN {
$DBD::Oracle::Object::AUTHORITY = 'cpan:PYTHIAN';
@@ -39,7 +39,7 @@
=head1 VERSION
-version 1.40
+version 1.41_00
=head1 AUTHORS
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/Troubleshooting.pm
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/Troubleshooting.pm (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/lib/DBD/Oracle/Troubleshooting.pm Mon Mar 12 12:56:45 2012
@@ -1,6 +1,6 @@
package DBD::Oracle::Troubleshooting;
{
- $DBD::Oracle::Troubleshooting::VERSION = '1.40';
+ $DBD::Oracle::Troubleshooting::VERSION = '1.41_00';
}
BEGIN {
$DBD::Oracle::Troubleshooting::AUTHORITY = 'cpan:PYTHIAN';
@@ -17,7 +17,7 @@
=head1 VERSION
-version 1.40
+version 1.41_00
=head1 CONNECTING TO ORACLE
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/t/000-report-versions.t
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/t/000-report-versions.t (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/t/000-report-versions.t Mon Mar 12 12:56:45 2012
@@ -415,6 +415,7 @@
Test::Pod::Coverage
Test::Portability::Files
Test::YAML::Meta
+ open
);
my $Test = Test::Builder->new;
@@ -437,7 +438,7 @@
next;
}
local $SIG{__WARN__} = sub { note "$module: $_[0]" };
- use_ok $module or BAIL_OUT("can't load $module");
+ require_ok $module or BAIL_OUT("can't load $module");
my $version = $module->VERSION;
$version = 'undefined' unless defined $version;
diag(" $module version is $version");
Modified: dbd-oracle/branches/DBD-Oracle-1.41_00/t/rt74753-utf8-encoded.t
==============================================================================
--- dbd-oracle/branches/DBD-Oracle-1.41_00/t/rt74753-utf8-encoded.t (original)
+++ dbd-oracle/branches/DBD-Oracle-1.41_00/t/rt74753-utf8-encoded.t Mon Mar 12 12:56:45 2012
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More;
use DBI;
use Encode;
@@ -21,6 +21,11 @@
PrintError => 0, AutoCommit => 0, RaiseError => 1,
},);
+plan skip_all => "unable to connect to Oracle database" if not $dbh;
+plan skip_all => "database character set is not Unicode" unless db_ochar_is_utf($dbh);
+
+plan tests => 3;
+
$dbh->do(q(alter session set nls_territory = 'GERMANY'));
my $sth = $dbh->prepare(<<"END_SQL");