Skip to content
Snippets Groups Projects
Commit a7120015 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

checkopts.pl: Update for new options.c layout

parent 33813996
No related branches found
No related tags found
No related merge requests found
......@@ -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}]);
}
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment