Skip to content

Commit 4028527

Browse files
committed
check-help-strings.pl: update regexp
Handle a few more cases by making the search regexp slightly more general. Signed-off-by: Jeff Squyres <jsquyres@cisco.com>
1 parent 114aec0 commit 4028527

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

contrib/check-help-strings.pl

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#!/usr/bin/env perl
22
#
3-
# Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
3+
# Copyright (c) 2014-2022 Cisco Systems, Inc. All rights reserved.
44
# $COPYRIGHT$
55
#
66
# Simple script to check all the opal_show_help (and orte_show_help)
@@ -242,13 +242,13 @@ sub check_name {
242242
my $sep = shift;
243243
my $src = shift;
244244

245-
while ($src =~ m/$name\s*$sep\s*"(.+?)"\s*,\s*"(.+?)"/) {
245+
while ($src =~ m/$name\s*$sep\s*"(.+?)"\s*,.*?"(.+?)"/) {
246246
my $file = $1;
247247
my $topic = $2;
248248
check_file_topic($info, $file, $topic);
249249

250250
# Don't find this one again
251-
$src =~ s/$name\s*$sep\s*"(.+?)"\s*,\s*"(.+?)"/SHOW_HELP_REPLACED/;
251+
$src =~ s/$name\s*$sep\s*"(.+?)"\s*,.*?"(.+?)"/SHOW_HELP_REPLACED/;
252252
}
253253

254254
return $src;

0 commit comments

Comments
 (0)