From d5035f3a2ec6265940c11c355fa6d7dca5a30c03 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Fri, 25 Jun 2010 10:40:04 +0200
Subject: Update checkopts.pl for new --help file

---
 scripts/checkopts.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/scripts/checkopts.pl b/scripts/checkopts.pl
index bd7cd6e..2c64415 100755
--- a/scripts/checkopts.pl
+++ b/scripts/checkopts.pl
@@ -12,12 +12,17 @@ while (my $line = <$c_fh>) {
 	if ($line =~ /\{"(?<long>[\w-]+)",.*,\s*(?:'(?<short>.)'|(?<short>\d+))\}/o) {
 		push(@{$options->{$+{long}}}, ['source', $+{short}]);
 	}
-	elsif ($line =~ /" (?:\-(?<short>.), |\s*)--(?<long>[\w-]+) /) {
+}
+close($c_fh);
+
+open(my $h_fh, '<', 'src/help.raw') or die("Can't read help.raw: $!");
+while (my $line = <$h_fh>) {
+
+	if ($line =~ /^ (?:\-(?<short>.), |\s*)--(?<long>[\w-]+) /) {
 		push(@{$options->{$+{long}}}, ['help', $+{short}]);
 	}
-
 }
-close($c_fh);
+close($h_fh);
 
 open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!");
 while (my $line = <$man_fh>) {
-- 
cgit v1.2.3