File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 1
1
# !/usr/bin/env perl
2
2
#
3
- # Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
3
+ # Copyright (c) 2014-2022 Cisco Systems, Inc. All rights reserved.
4
4
# $COPYRIGHT$
5
5
#
6
6
# Simple script to check all the opal_show_help (and orte_show_help)
@@ -242,13 +242,13 @@ sub check_name {
242
242
my $sep = shift ;
243
243
my $src = shift ;
244
244
245
- while ($src =~ m /$name \s *$sep \s *"(.+?)"\s *,\s * "(.+?)"/ ) {
245
+ while ($src =~ m /$name \s *$sep \s *"(.+?)"\s *,.*? "(.+?)"/ ) {
246
246
my $file = $1 ;
247
247
my $topic = $2 ;
248
248
check_file_topic($info , $file , $topic );
249
249
250
250
# 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/ ;
252
252
}
253
253
254
254
return $src ;
You can’t perform that action at this time.
0 commit comments