Changeset 1620

Show
Ignore:
Timestamp:
08/24/05 07:14:40
Author:
miyagawa
Message:

0.10: warnings deprecation

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Class-DBI-SQLite/trunk/Changes

    r1540 r1620  
    11Revision history for Perl extension Class::DBI::SQLite 
     2 
     30.10  Tue Aug 23 21:57:46 UTC 2005 
     4        - Fixed warnings when there's no PK found 
     5          (Thanks to William <william at knowmad.com>) 
    26 
    370.09  Sat Apr 16 05:35:45 JST 2005 
  • Class-DBI-SQLite/trunk/MANIFEST

    r1540 r1620  
    33Makefile.PL 
    44MANIFEST                        This list of files 
    5 META.yml 
    65t/00_compile.t 
    76t/01_sqlite.t 
  • Class-DBI-SQLite/trunk/lib/Class/DBI/SQLite.pm

    r1540 r1620  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = "0.09"; 
     5$VERSION = "0.10"; 
    66 
    77require Class::DBI; 
     
    4343    } else { 
    4444        my ($pks)= $sql =~ m/PRIMARY\s+KEY\s*\(\s*([^)]+)\s*\)/; 
    45         @pks = split m/\s*\,\s*/, $pks; 
     45        @pks = split(m/\s*\,\s*/, $pks) if $pks; 
    4646    } 
    4747    $class->table($table);