Author: Alexander Zangerl  <az@debian.org>
Subject: fix for upstream #27215: use berkeley db, don't die in mtime on nxfile

diff -urNad libtm-perl-1.53~/lib/TM/Synchronizable/MLDBM.pm libtm-perl-1.53/lib/TM/Synchronizable/MLDBM.pm
--- libtm-perl-1.53~/lib/TM/Synchronizable/MLDBM.pm	2008-09-26 01:54:58.000000000 +1000
+++ libtm-perl-1.53/lib/TM/Synchronizable/MLDBM.pm	2010-06-21 21:37:45.776848350 +1000
@@ -5,7 +5,8 @@
 
 use Data::Dumper;
 
-use MLDBM qw(MLDBM::Sync::SDBM_File Storable);
+#use MLDBM qw(MLDBM::Sync::SDBM_File Storable);
+use MLDBM qw(DB_File);
 use MLDBM::Sync;
 use Fcntl qw(:DEFAULT);
 
diff -urNad libtm-perl-1.53~/lib/TM/Synchronizable.pm libtm-perl-1.53/lib/TM/Synchronizable.pm
--- libtm-perl-1.53~/lib/TM/Synchronizable.pm	2010-06-05 04:41:54.000000000 +1000
+++ libtm-perl-1.53/lib/TM/Synchronizable.pm	2010-06-21 21:40:24.391848130 +1000
@@ -84,9 +84,12 @@
     my $self = shift;
     my $url  = $self->url;
 
+    my $mtime=$self->mtime;
+    die "source '$url' is not accessible or does not exist.\n"
+	if (!defined $mtime);
     $self->source_in (@_) if $self->last_mod           # modification in map
                           <                            # earlier than
-                          $self->mtime + 1;            # modification of resource
+                          $mtime + 1;            # modification of resource
 }
 
 =pod
