Changeset 12 in mp3-find for trunk/lib/MP3/Find/DB.pm

Timestamp:

02/14/06 20:19:23 (18 years ago)

Author:

peter

Message:

• added "exclude_path" option to Filesystem backend
• added an excluded directory to the test suite ("t/dont_look_here")
• fixed dying DB test (still a workaround for a DBD::SQLite problem)

File:

• trunk/lib/MP3/Find/DB.pm (modified) (2 diffs)

trunk/lib/MP3/Find/DB.pm

@@ -123 +123 @@
         warn "Multiple records for $$mp3{FILENAME}\n" if @$records > 1;
         
+        #TODO: maybe print status updates somewhere else?
         if (@$records == 0) {
             $insert_sth->execute(map { $mp3->{$$_[0]} } @COLUMNS);
@@ -138 +139 @@
     # (see http://rt.cpan.org/Ticket/Display.html?id=9643#txn-120724)
     foreach ($mtime_sth, $insert_sth, $update_sth) {
+        $_->{RaiseError} = 0;  # don't die on error
         $_->{Active} = 1;
         $_->finish;