Commit a7120015 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

checkopts.pl: Update for new options.c layout

parent 33813996

scripts/checkopts.pl

+1 −1
Original line number Diff line number Diff line
@@ -9,7 +9,7 @@ my $options; 
open(my $c_fh, '<', 'src/options.c') or die("Can't read options.c: $!");

while (my $line = <$c_fh>) {



	if ($line =~ /\{"(?<long>[\w-]+)",.*,\s*(?:'(?<short>.)'|(?<short>\d+))\}/o) {

	if ($line =~ /\{"(?<long>[\w-]+)"\s*,.*,\s*(?:'(?<short>.)'|(?<short>\d+))\}/o) {

		push(@{$options->{$+{long}}}, ['source', $+{short}]);

	}

}