Description:
 Fix Processing of dotfiles, see: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=492934
--- a/imageindex
+++ b/imageindex
@@ -611,10 +611,10 @@
 	if (defined($prev)) {
 	    my ($name,$path,$suffix);
 
-	    ($name,$path,$suffix) = fileparse($prev,'\.\S+');
+	    ($name,$path,$suffix) = fileparse($prev,'\.[^.]+');
 	    $back{$pathname} = "$name.html";
 
-	    ($name,$path,$suffix) = fileparse($pathname,'\.\S+');
+	    ($name,$path,$suffix) = fileparse($pathname,'\.[^.]+');
 	    $forward{$prev} = "$name.html";
 	}
 	$prev = $pathname;
@@ -1848,7 +1848,7 @@
 
 	$info{$pathname}{'format'} = $info{$pathname}{'video_format'};
 
-	my ($name,$path,$suffix) = fileparse($filename,'\.\S+');
+	my ($name,$path,$suffix) = fileparse($filename,'\.[^.]+');
 
 	if (-e "${name}.txt") {
 	    my $text;
@@ -1942,7 +1942,7 @@
 
     $info{$pathname}{'comment'} = $image->Get('comment');
 
-    my ($name,$path,$suffix) = fileparse($filename,'\.\S+');
+    my ($name,$path,$suffix) = fileparse($filename,'\.[^.]+');
 
 
     if ($info{$pathname}{'format'} =~ /JFIF/i) {
@@ -2783,7 +2783,7 @@
 	$ctime,$blksize,$blocks) = stat($file);
     my $posix_mtime = POSIX::strftime ("%Y%m%d%H%M.%S",localtime($mtime));
 
-    my ($name,$path,$suffix) = fileparse($file,'\.\S+');
+    my ($name,$path,$suffix) = fileparse($file,'\.[^.]+');
     my $thumb;
     my $medium;