From ff17b20b5596429be688d9f3fc0797527bbafac8 Mon Sep 17 00:00:00 2001
From: curt <curt>
Date: Fri, 31 Oct 2003 03:53:10 +0000
Subject: [PATCH] Updates.

---
 scripts/perl/web/mkindex.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scripts/perl/web/mkindex.pl b/scripts/perl/web/mkindex.pl
index 0b1cb28fc..be01f7d0f 100755
--- a/scripts/perl/web/mkindex.pl
+++ b/scripts/perl/web/mkindex.pl
@@ -286,6 +286,7 @@ while ( <MASTER> ) {
 
 	$thumbinfo = `identify $mdir/$linkname.jpg`;
 	($name, $type, $geom, $junk) = split(/\s+/, $thumbinfo, 4);
+	$geom =~ s/\+.*//;
 	($twidth, $theight) = split(/x/, $geom);
         print "movie thumb geom = $geom  $twidth  $theight\n";