Hello community, here is the log from the commit of package perl-DBI for openSUSE:Factory checked in at Sat Oct 2 00:10:14 CEST 2010. -------- --- perl-DBI/perl-DBI.changes 2010-09-21 10:16:10.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-DBI/perl-DBI.changes 2010-09-30 16:36:55.000000000 +0200 @@ -1,0 +2,6 @@ +Thu Sep 30 16:05:23 CEST 2010 - anicka@suse.cz + +- update to 1.615 + * bugfixes + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- DBI-1.614.tar.bz2 New: ---- DBI-1.615.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBI.spec ++++++ --- /var/tmp/diff_new_pack.ZKyThN/_old 2010-10-02 00:09:59.000000000 +0200 +++ /var/tmp/diff_new_pack.ZKyThN/_new 2010-10-02 00:09:59.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package perl-DBI (Version 1.614) +# spec file for package perl-DBI (Version 1.615) # # Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. # @@ -22,7 +22,7 @@ Name: perl-DBI %define cpan_name DBI Summary: Database independent interface for Perl -Version: 1.614 +Version: 1.615 Release: 1 License: GPL+ or Artistic Group: Development/Libraries/Perl ++++++ DBI-1.614.tar.bz2 -> DBI-1.615.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/Changes new/DBI-1.615/Changes --- old/DBI-1.614/Changes 2010-09-17 11:38:09.000000000 +0200 +++ new/DBI-1.615/Changes 2010-09-21 12:08:23.000000000 +0200 @@ -2,10 +2,17 @@ DBI::Changes - List of significant changes to the DBI -(As of $Date: 2010-09-16 06:48:35 +0100 (Thu, 16 Sep 2010) $ $Revision: 14407 $) +(As of $Date: 2010-09-21 11:08:21 +0100 (Tue, 21 Sep 2010) $ $Revision: 14438 $) =cut +=head2 Changes in DBI 1.615 (svn r14438) 21st September 2010 + + Fixed t/51dbm_file for file/directory names with whitespaces in them + RT#61445 (Jens Rehsack) + Fixed compiler warnings from ignored hv_store result (Martin J. Evans) + Fixed portability to VMS (Craig A. Berry) + =head2 Changes in DBI 1.614 (svn r14408) 17th September 2010 Fixed bind_param () in DBI::DBD::SqlEngine (rt#61281) @@ -16,6 +23,9 @@ (Jens Rehsack) Croak manually when file after tie doesn't exists in DBD::DBM when it have to exists (Jens Rehsack) + Fixed issue in DBD::File when users set individual file name for tables + via f_meta compatibility interface - reported by H.Merijn Brand while + working on RT#61168 (Jens Rehsack) Changed 50dbm_simple to simplify and fix problems (Martin J. Evans) Changed 50dbm_simple to skip aggregation tests when not using @@ -27,12 +37,13 @@ Added ability for parallel testing "prove -j4 ..." (Jens Rehsack) Added tests for delete in DBM (H.Merijn Brand) Added test for absolute filename as table to 51dbm_file (Jens Rehsack) - Added two initialization phases to DBI::DBD::SqlEngine + Added two initialization phases to DBI::DBD::SqlEngine (Jens Rehsack) Added improved developers documentation for DBI::DBD::SqlEngine + (Jens Rehsack) Added guides how to write DBI drivers using DBI::DBD::SqlEngine - or DBD::File + or DBD::File (Jens Rehsack) Added register_compat_map() and table_meta_attr_changed() to - DBD::File::Table + DBD::File::Table to support clean fix of RT#61168 (Jens Rehsack) =head2 Changes in DBI 1.613 (svn r14271) 22nd July 2010 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/DBI.pm new/DBI-1.615/DBI.pm --- old/DBI-1.614/DBI.pm 2010-07-30 15:26:23.000000000 +0200 +++ new/DBI-1.615/DBI.pm 2010-09-21 12:08:23.000000000 +0200 @@ -1,4 +1,4 @@ -# $Id: DBI.pm 14294 2010-07-30 13:26:20Z timbo $ +# $Id: DBI.pm 14438 2010-09-21 10:08:21Z timbo $ # vim: ts=8:sw=4:et # # Copyright (c) 1994-2010 Tim Bunce Ireland @@ -9,7 +9,7 @@ require 5.008_001; BEGIN { -$DBI::VERSION = "1.614"; # ==> ALSO update the version in the pod text below! +$DBI::VERSION = "1.615"; # ==> ALSO update the version in the pod text below! } =head1 NAME @@ -124,8 +124,8 @@ =head2 NOTES -This is the DBI specification that corresponds to the DBI version 1.614 -($Revision: 14294 $). +This is the DBI specification that corresponds to the DBI version 1.615 +($Revision: 14438 $). The DBI is evolving at a steady pace, so it's good to check that you have the latest copy. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/DBI.xs new/DBI-1.615/DBI.xs --- old/DBI-1.614/DBI.xs 2010-07-30 15:20:05.000000000 +0200 +++ new/DBI-1.615/DBI.xs 2010-09-18 13:07:11.000000000 +0200 @@ -1,6 +1,6 @@ /* vim: ts=8:sw=4:expandtab * - * $Id: DBI.xs 14292 2010-07-30 13:20:00Z timbo $ + * $Id: DBI.xs 14422 2010-09-17 20:38:27Z mjevans $ * * Copyright (c) 1994-2009 Tim Bunce Ireland. * @@ -1277,7 +1277,7 @@ && SvROK(*tmp_svp) && SvTYPE(SvRV(*tmp_svp)) == SVt_PVHV ) { /* XXX mirrors behaviour of dbih_set_attr_k() of Callbacks */ - hv_store((HV*)SvRV(h), "Callbacks", 9, newRV_inc(SvRV(*tmp_svp)), 0); + (void)hv_store((HV*)SvRV(h), "Callbacks", 9, newRV_inc(SvRV(*tmp_svp)), 0); DBIc_set(imp, DBIcf_Callbacks, 1); } @@ -1315,16 +1315,16 @@ switch (DBIc_TYPE(imp)) { case DBIt_DB: /* cache _inner_ handle, but also see quick_FETCH */ - hv_store((HV*)SvRV(h), "Driver", 6, newRV_inc(SvRV(parent)), 0); - hv_fetch((HV*)SvRV(h), "Statement", 9, 1); /* store writable undef */ + (void)hv_store((HV*)SvRV(h), "Driver", 6, newRV_inc(SvRV(parent)), 0); + (void)hv_fetch((HV*)SvRV(h), "Statement", 9, 1); /* store writable undef */ break; case DBIt_ST: DBIc_NUM_FIELDS((imp_sth_t*)imp) = -1; /* cache _inner_ handle, but also see quick_FETCH */ - hv_store((HV*)SvRV(h), "Database", 8, newRV_inc(SvRV(parent)), 0); + (void)hv_store((HV*)SvRV(h), "Database", 8, newRV_inc(SvRV(parent)), 0); /* copy (alias) Statement from the sth up into the dbh */ tmp_svp = hv_fetch((HV*)SvRV(h), "Statement", 9, 1); - hv_store((HV*)SvRV(parent), "Statement", 9, SvREFCNT_inc(*tmp_svp), 0); + (void)hv_store((HV*)SvRV(parent), "Statement", 9, SvREFCNT_inc(*tmp_svp), 0); break; } } @@ -2059,7 +2059,7 @@ cacheit = 1; } if (cacheit) { - hv_store((HV*)SvRV(h), key, keylen, newSVsv(valuesv), 0); + (void)hv_store((HV*)SvRV(h), key, keylen, newSVsv(valuesv), 0); } return TRUE; } @@ -2154,7 +2154,7 @@ if (av) av_store(av, i, sv); else { - hv_store(hv, name, SvCUR(sv), newSViv(i), 0); + (void)hv_store(hv, name, SvCUR(sv), newSViv(i), 0); sv_free(sv); } } @@ -2381,7 +2381,7 @@ } if (cacheit) { - hv_store((HV*)SvRV(h), key, keylen, newSVsv(valuesv), 0); + (void)hv_store((HV*)SvRV(h), key, keylen, newSVsv(valuesv), 0); } if (DBIc_TRACE_LEVEL(imp_xxh) >= 3) PerlIO_printf(DBILOGFP," .. FETCH %s %s = %s%s\n", neatsvpv(h,0), @@ -2587,7 +2587,7 @@ char *key = "(demoted)"; warn("Profile data element %s replaced with new hash ref (for %s) and original value stored with key '%s'", neatsvpv(orig_node,0), name, key); - hv_store(hv, key, strlen(key), SvREFCNT_inc(orig_node), 0); + (void)hv_store(hv, key, strlen(key), SvREFCNT_inc(orig_node), 0); } sv_setsv(node, newRV_noinc((SV*)hv)); node = (SV*)hv; @@ -3140,7 +3140,7 @@ keep_error = TRUE; if (ima_flags & IMA_CLEAR_STMT) { /* don't use SvOK_off: dbh's Statement may be ref to sth's */ - hv_store((HV*)SvRV(h), "Statement", 9, &PL_sv_undef, 0); + (void)hv_store((HV*)SvRV(h), "Statement", 9, &PL_sv_undef, 0); } if (ima_flags & IMA_CLEAR_CACHED_KIDS) clear_cached_kids(aTHX_ h, imp_xxh, meth_name, trace_flags); @@ -3219,7 +3219,7 @@ SV *parent = DBIc_PARENT_H(imp_xxh); SV *tmp_sv = *hv_fetch((HV*)SvRV(h), "Statement", 9, 1); /* XXX sv_copy() if Profiling? */ - hv_store((HV*)SvRV(parent), "Statement", 9, SvREFCNT_inc(tmp_sv), 0); + (void)hv_store((HV*)SvRV(parent), "Statement", 9, SvREFCNT_inc(tmp_sv), 0); } } @@ -4240,7 +4240,7 @@ (void)cv; /* avoid unused warning */ } - hv_store((HV*)SvRV(attr_ref), "ImplementorClass", 16, SvREFCNT_inc(imp_class), 0); + (void)hv_store((HV*)SvRV(attr_ref), "ImplementorClass", 16, SvREFCNT_inc(imp_class), 0); /* make attr into inner handle by blessing it into class */ sv_bless(attr_ref, class_stash); @@ -4962,7 +4962,7 @@ hv = newHV(); for (i=0; i < num_fields; ++i) { /* honor the original order as sent by the database */ SV **field_name_svp = av_fetch(ka_av, i, 1); - hv_store_ent(hv, *field_name_svp, newSVsv((SV*)(AvARRAY(rowav)[i])), 0); + (void)hv_store_ent(hv, *field_name_svp, newSVsv((SV*)(AvARRAY(rowav)[i])), 0); } RETVAL = newRV_inc((SV*)hv); SvREFCNT_dec(hv); /* since newRV incremented it */ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/META.yml new/DBI-1.615/META.yml --- old/DBI-1.614/META.yml 2010-09-17 11:42:46.000000000 +0200 +++ new/DBI-1.615/META.yml 2010-09-22 14:21:10.000000000 +0200 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: DBI -version: 1.614 +version: 1.615 abstract: Database independent interface for Perl author: - Tim Bunce (dbi-users@perl.org) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/lib/DBD/File.pm new/DBI-1.615/lib/DBD/File.pm --- old/DBI-1.614/lib/DBD/File.pm 2010-09-17 11:32:26.000000000 +0200 +++ new/DBI-1.615/lib/DBD/File.pm 2010-09-21 00:13:21.000000000 +0200 @@ -141,11 +141,6 @@ $driver = $drh->{ImplementorClass} =~ m/^dbd\:\:([^\:]+)\:\:/i ? $1 : "File"; while (defined ($file = readdir ($dirh))) { - if ($^O eq "VMS") { - # if on VMS then avoid warnings from catdir if you use a file - # (not a dir) as the file below - $file !~ m/\.dir$/oi and next; - } my $d = File::Spec->catdir ($dir, $file); # allow current dir ... it can be a data_source too $file ne File::Spec->updir () && -d $d and @@ -737,21 +732,27 @@ } # (my $tbl = $file) =~ s/$ext$//i; - my ($tbl, $dir, $user_spec_file); + my ($tbl, $basename, $dir, $fn_ext, $user_spec_file); if ($file_is_table and defined $meta->{f_file}) { $tbl = $file; - ($file, $dir, undef) = File::Basename::fileparse ($meta->{f_file}); + ($basename, $dir, $fn_ext) = File::Basename::fileparse ($meta->{f_file}, $fn_any_ext_regex); + $file = $basename . $fn_ext; $user_spec_file = 1; } else { - ($tbl, $dir, undef) = File::Basename::fileparse ($file, $ext); + ($basename, $dir, undef) = File::Basename::fileparse ($file, $ext); + $file = $tbl = $basename; $user_spec_file = 0; } - !$respect_case and $meta->{sql_identifier_case} == 1 and # XXX SQL_IC_UPPER + if (!$respect_case and $meta->{sql_identifier_case} == 1) { # XXX SQL_IC_UPPER + $basename = uc $basename; $tbl = uc $tbl; - !$respect_case and $meta->{sql_identifier_case} == 2 and # XXX SQL_IC_LOWER + } + if( !$respect_case and $meta->{sql_identifier_case} == 2) { # XXX SQL_IC_LOWER + $basename = lc $basename; $tbl = lc $tbl; + } my $searchdir = File::Spec->file_name_is_absolute ($dir) ? ($dir =~ s|/$||, $dir) @@ -763,14 +764,15 @@ $dir = ""; unless ($user_spec_file) { - $file_is_table and $file = "$tbl$ext"; + $file_is_table and $file = "$basename$ext"; # Fully Qualified File Name my $cmpsub; if ($respect_case) { $cmpsub = sub { my ($fn, undef, $sfx) = File::Basename::fileparse ($_, $fn_any_ext_regex); - $fn eq $tbl and + $sfx = '' if $^O eq 'VMS' and $sfx eq '.'; # no extension turns up as a dot + $fn eq $basename and return (lc $sfx eq lc $ext or !$req && !$sfx); return 0; } @@ -778,7 +780,8 @@ else { $cmpsub = sub { my ($fn, undef, $sfx) = File::Basename::fileparse ($_, $fn_any_ext_regex); - lc $fn eq lc $tbl and + $sfx = '' if $^O eq 'VMS' and $sfx eq '.'; # no extension turns up as a dot + lc $fn eq lc $basename and return (lc $sfx eq lc $ext or !$req && !$sfx); return 0; } @@ -799,7 +802,7 @@ } my $fqfn = File::Spec->catfile ($searchdir, $file); - my $fqbn = File::Spec->catfile ($searchdir, $tbl); + my $fqbn = File::Spec->catfile ($searchdir, $basename); $meta->{f_fqfn} = $fqfn; $meta->{f_fqbn} = $fqbn; @@ -842,7 +845,9 @@ $table =~ s/\"$//; } - defined $dbh->{f_meta_map}{$table} and $table = $dbh->{f_meta_map}{$table}; + unless ($respect_case) { + defined $dbh->{f_meta_map}{$table} and $table = $dbh->{f_meta_map}{$table}; + } my $meta = {}; defined $dbh->{f_meta}{$table} and $meta = $dbh->{f_meta}{$table}; @@ -861,10 +866,12 @@ # now we know a bit more - let's check if user can't use consequent spelling # XXX add know issue about reset sql_identifier_case here ... - if (defined $dbh->{f_meta}{$table} && $dbh->{f_meta}{$table}{initialized}) { + if (defined $dbh->{f_meta}{$table} && defined($dbh->{f_meta}{$table}{initialized})) { $meta = $dbh->{f_meta}{$table}; + $self->file2table ($meta, $table, $file_is_table, $respect_case) or + return unless ($dbh->{f_meta}{$table}{initialized}); } - else { + unless ($dbh->{f_meta}{$table}{initialized}) { $self->init_table_meta ($dbh, $meta, $table); $meta->{initialized} = 1; $dbh->{f_meta}{$table} = $meta; @@ -921,7 +928,7 @@ my ($class, $meta, $attrib, $value) = @_; defined $reset_on_modify{$attrib} and delete $meta->{$reset_on_modify{$attrib}} and - delete $meta->{initialized}; + $meta->{initialized} = 0; } # table_meta_attr_changed # ====== FILE OPEN ============================================================= diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/lib/DBI/DBD.pm new/DBI-1.615/lib/DBI/DBD.pm --- old/DBI-1.614/lib/DBI/DBD.pm 2010-08-16 12:38:29.000000000 +0200 +++ new/DBI-1.615/lib/DBI/DBD.pm 2010-09-21 00:29:45.000000000 +0200 @@ -5,10 +5,10 @@ # don't use Revision here because that's not in svn:keywords so that the # examples that use it below won't be messed up -$VERSION = sprintf("12.%06d", q$Id: DBD.pm 14312 2010-08-02 18:01:00Z mjevans $ =~ /(\d+)/o); +$VERSION = sprintf("12.%06d", q$Id: DBD.pm 14436 2010-09-20 22:29:43Z timbo $ =~ /(\d+)/o); -# $Id: DBD.pm 14312 2010-08-02 18:01:00Z mjevans $ +# $Id: DBD.pm 14436 2010-09-20 22:29:43Z timbo $ # # Copyright (c) 1997-2006 Jonathan Leffler, Jochen Wiedmann, Steffen # Goeldner and Tim Bunce @@ -3324,15 +3324,18 @@ my %test_variants = ( p => { name => "DBI::PurePerl", match => qr/^\d/, - add => [ '$ENV{DBI_PUREPERL} = 2' ], + add => [ '$ENV{DBI_PUREPERL} = 2', + 'END { delete $ENV{DBI_PUREPERL}; }' ], }, g => { name => "DBD::Gofer", match => qr/^\d/, - add => [ q{$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'} ], + add => [ q{$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'}, + q|END { delete $ENV{DBI_AUTOPROXY}; }| ], }, n => { name => "DBI::SQL::Nano", match => qr/^(?:49dbd_file|5\ddbm_\w+|85gofer)\.t$/, - add => [ q{$ENV{DBI_SQL_NANO} = 1} ], + add => [ q{$ENV{DBI_SQL_NANO} = 1}, + q|END { delete $ENV{DBI_SQL_NANO}; }| ], }, # mx => { name => "DBD::Multiplex", # add => [ q{local $ENV{DBI_AUTOPROXY} = 'dbi:Multiplex:';} ], diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/t/40profile.t new/DBI-1.615/t/40profile.t --- old/DBI-1.614/t/40profile.t 2010-07-30 15:33:07.000000000 +0200 +++ new/DBI-1.615/t/40profile.t 2010-09-21 00:29:59.000000000 +0200 @@ -79,7 +79,7 @@ my $t_file = __FILE__; $dbh->do("set foo=1"); my $line = __LINE__; my $expected_caller = "40profile.t line $line"; -$expected_caller .= " via ${1}40profile.t line 3" +$expected_caller .= " via ${1}40profile.t line 4" if $0 =~ /(zv\w+_)/; print Dumper($dbh->{Profile}); is_deeply sanitize_tree($dbh->{Profile}), bless { @@ -87,8 +87,8 @@ 'Data' => { 'do' => { $expected_caller => [ 1, 0, 0, 0, 0, 0, 0 ] } } -} => 'DBI::Profile'; -#die Dumper $dbh->{Profile}; +} => 'DBI::Profile' + or warn Dumper $dbh->{Profile}; # can turn it on at connect diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/t/49dbd_file.t new/DBI-1.615/t/49dbd_file.t --- old/DBI-1.614/t/49dbd_file.t 2010-07-28 16:08:20.000000000 +0200 +++ new/DBI-1.615/t/49dbd_file.t 2010-09-21 00:13:21.000000000 +0200 @@ -99,7 +99,7 @@ my @tfhl; # Now test some basic SQL statements -my $tbl_file = File::Spec->catfile ($dir, "$tbl.txt"); +my $tbl_file = File::Spec->catfile (Cwd::abs_path( $dir ), "$tbl.txt"); ok ($dbh->do ("create table $tbl (txt varchar (20))"), "Create table $tbl") or diag $dbh->errstr; ok (-f $tbl_file, "Test table exists"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/t/51dbm_file.t new/DBI-1.615/t/51dbm_file.t --- old/DBI-1.614/t/51dbm_file.t 2010-09-17 11:32:26.000000000 +0200 +++ new/DBI-1.615/t/51dbm_file.t 2010-09-21 00:13:21.000000000 +0200 @@ -2,10 +2,12 @@ $| = 1; use strict; +use warnings; + +use File::Copy (); use File::Path; -use File::Spec; +use File::Spec (); use Test::More; -use Cwd; my $using_dbd_gofer = ( $ENV{DBI_AUTOPROXY} || '' ) =~ /^dbi:Gofer.*transport=/i; @@ -23,8 +25,10 @@ ok( $dbh->do(q/drop table if exists FRED/), 'drop table' ); +my $dirfext = $^O eq 'VMS' ? '.sdbm_dir' : '.dir'; + $dbh->do(q/create table fred (a integer, b integer)/); -ok( -f File::Spec->catfile( $dir, "FRED.dir" ), "FRED.dir exists" ); +ok( -f File::Spec->catfile( $dir, "FRED$dirfext" ), "FRED$dirfext exists" ); rmtree $dir; mkpath $dir; @@ -46,7 +50,7 @@ } $dbh->do(q/create table FRED (a integer, b integer)/); -ok( -f File::Spec->catfile( $dir, "fred.dir" ), "fred.dir exists" ); +ok( -f File::Spec->catfile( $dir, "fred$dirfext" ), "fred$dirfext exists" ); ok( $dbh->do(q/insert into fRED (a,b) values(1,2)/), 'insert into mixed case table' ); @@ -54,14 +58,41 @@ ok( $dbh->do(q/insert into FRED (a,b) values(2,1)/), 'insert into uppercase table' ); +unless ($using_dbd_gofer) +{ + my $fn_tbl2 = $dbh->{dbm_tables}->{fred}->{f_fqfn}; + $fn_tbl2 =~ s/fred(\.[^.]*)?/freddy$1/; + my @dbfiles = grep { -f $_ } ( + $dbh->{dbm_tables}->{fred}->{f_fqfn}, + $dbh->{dbm_tables}->{fred}->{f_fqln}, + $dbh->{dbm_tables}->{fred}->{f_fqbn} . ".dir" + ); + foreach my $fn (@dbfiles) + { + my $tgt_fn = $fn; + $tgt_fn =~ s/fred(\.[^.]*)?/freddy$1/; + File::Copy::copy( $fn, $tgt_fn ); + } + $dbh->{dbm_tables}->{krueger}->{file} = $fn_tbl2; + + my $r = $dbh->selectall_arrayref(q/select * from Krueger/); + ok( @$r == 2, 'rows found via cloned mixed case table' ); + + ok( $dbh->do(q/drop table if exists KRUeGEr/), 'drop table' ); +} + my $r = $dbh->selectall_arrayref(q/select * from Fred/); ok( @$r == 2, 'rows found via mixed case table' ); -my $abs_tbl = File::Spec->catfile( $dir, 'fred' ); - # work around SQL::Statement bug - DBD::DBM::Statement->isa("SQL::Statement") and SQL::Statement->VERSION() lt "1.32" and $abs_tbl =~ s|\\|/|g; - $r = $dbh->selectall_arrayref( sprintf( q|select * from "%s"|, $abs_tbl ) ); -ok( @$r == 2, 'rows found via select via fully qualified path' ); +SKIP: +{ + DBD::DBM::Statement->isa("SQL::Statement") or skip("quoted identifiers aren't supported by DBI::SQL::Nano",1); + my $abs_tbl = File::Spec->catfile( $dir, 'fred' ); + # work around SQL::Statement bug + DBD::DBM::Statement->isa("SQL::Statement") and SQL::Statement->VERSION() lt "1.32" and $abs_tbl =~ s|\\|/|g; + $r = $dbh->selectall_arrayref( sprintf( q|select * from "%s"|, $abs_tbl ) ); + ok( @$r == 2, 'rows found via select via fully qualified path' ); +} ok( $dbh->do(q/drop table if exists FRED/), 'drop table' ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBI-1.614/t/lib.pl new/DBI-1.615/t/lib.pl --- old/DBI-1.614/t/lib.pl 2010-09-09 12:04:35.000000000 +0200 +++ new/DBI-1.615/t/lib.pl 2010-09-21 00:13:21.000000000 +0200 @@ -22,6 +22,9 @@ $test_dir = VMS::Filespec::unixify($test_dir) if $^O eq 'VMS'; rmtree $test_dir; mkpath $test_dir; + # There must be at least one directory in the test directory, + # and nothing guarantees that dot or dot-dot directories will exist. + mkpath ( File::Spec->catdir( $test_dir, '000_just_testing' ) ); } return $test_dir; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org