Fix subject identification

From: Mauro Carvalho Chehab <mchehab@infradead.org>



Signed-off-by: Mauro Carvalho Chehab <mchehab@infradead.org>

1 files changed, 3 insertions, 2 deletions

diff --git a/v4l/scripts/hghead.pl b/v4l/scripts/hghead.pl
index 02295bcef..14c3d906f 100755
--- a/v4l/scripts/hghead.pl
+++ b/v4l/scripts/hghead.pl
@@ -91,7 +91,8 @@ while ($line = <IN>) {
 	}
 
 	if ($tag =~ m/^subject:/) {
-		$subject="$arg\n";
+		$subject = "$arg\n";
+		$sub_ok = 1;
 		next;
 	}
 
@@ -136,6 +137,7 @@ while ($line = <IN>) {
 
 	if ($line =~ m|^(V4L\/DVB\s*\(.+\)\s*:.*\n)|) {
 		$subject=$1;
+		$sub_ok = 1;
 		$line="\n";
 	}
 
@@ -147,7 +149,6 @@ while ($line = <IN>) {
 			next;
 		}
 		$sub_ok=1;
-		substr( $subject, 0, 1 ) = uc (substr ($subject, 0, 1));
 		if ($subject =~ m|V4L\/DVB\s*(.+)|) {
 			$subject=$1;
 		}