From 3a2246a12b54589b1bdf07d475f83c8cde281218 Mon Sep 17 00:00:00 2001
From: Klaus Schmidinger <vdr@tvdr.de>
Date: Mon, 25 Feb 2008 18:11:33 +0100
Subject: Made the 'pic2mpg' script of the 'pictures' plugin work with
 uppercase filename extensions

---
 PLUGINS/src/pictures/pic2mpg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'PLUGINS/src/pictures/pic2mpg')

diff --git a/PLUGINS/src/pictures/pic2mpg b/PLUGINS/src/pictures/pic2mpg
index 6cd74359..bcafcf52 100755
--- a/PLUGINS/src/pictures/pic2mpg
+++ b/PLUGINS/src/pictures/pic2mpg
@@ -7,7 +7,7 @@
 #
 # See the README file for copyright information and how to reach the author.
 #
-# $Id: pic2mpg 1.2 2008/02/02 11:34:43 kls Exp $
+# $Id: pic2mpg 1.3 2008/02/24 22:00:18 kls Exp $
 
 ## TODO implement HDTV (1920 x 1080)
 
@@ -143,7 +143,7 @@ for ($i = 0; $i < 10; $i++) { # dirs might become empty when removing empty subd
 sub ConvertFile
 {
   my ($Pict, $Mpeg) = @_;
-  (my $Type) = $Pict =~ /\.([^\.]*)$/;
+  (my $Type) = lc($Pict) =~ /\.([^\.]*)$/;
   if (!defined $PNMCONV{$Type}) {
      return if ($Ignore);
      die "unknown file type '$Type': '$Pict'\n";
-- 
cgit v1.2.3