mirror of
https://github.com/macports/macports-ports.git
synced 2026-07-12 18:20:25 -07:00
45 lines
1.3 KiB
Diff
45 lines
1.3 KiB
Diff
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;
|
|
|