From 90af5a1bd94255222debf6c05ee159e2ca044680 Mon Sep 17 00:00:00 2001
From: Klaus Schmidinger <vdr@tvdr.de>
Date: Tue, 26 Feb 2002 17:20:19 +0100
Subject: [PATCH] Fixed parsing 'E' records

---
 epg2html.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/epg2html.pl b/epg2html.pl
index 215eb735..80383ed3 100755
--- a/epg2html.pl
+++ b/epg2html.pl
@@ -12,7 +12,7 @@
 # See the main source file 'vdr.c' for copyright information and
 # how to reach the author.
 #
-# $Id: epg2html.pl 1.2 2000/12/01 18:37:46 kls Exp $
+# $Id: epg2html.pl 1.3 2002/02/26 17:20:19 kls Exp $
 
 @Index = ();
 
@@ -45,7 +45,7 @@ while (<>) {
          push(@Index, qq{<a href="$Page">$Channel</a><br>\n});
          my %Events = ();
          while (<>) {
-               if (/^E (.*) (.*) (.*)/) {
+               if (/^E (.*?) (.*?) (.*?)/) {
                   (my $Time, $Duration) = ($2, $3);
                   my $Title = "", $Subtitle = "", $Description = "";
                   while (<>) {