diff options
| author | Daniel Friesel <derf@derf.homelinux.org> | 2010-07-09 11:01:22 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@derf.homelinux.org> | 2010-07-09 11:01:22 +0200 |
| commit | a71200150bd7e5dfd777fdca916f138ab69ea71a (patch) | |
| tree | b541d639e6cc783596f852ebc0cd8aae0b4ee55e /scripts/checkopts.pl | |
| parent | 33813996359509f9c8edcb8d23e7cc18fd92b0e6 (diff) | |
| download | feh-a71200150bd7e5dfd777fdca916f138ab69ea71a.zip | |
checkopts.pl: Update for new options.c layout
Diffstat (limited to 'scripts/checkopts.pl')
| -rwxr-xr-x | scripts/checkopts.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/checkopts.pl b/scripts/checkopts.pl index 2c64415..ec82343 100755 --- a/scripts/checkopts.pl +++ b/scripts/checkopts.pl @@ -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}]); } } |