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 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 ;
You can’t perform that action at this time.
0 commit comments