ExternalVendorCode/trick
1
0
Fork 0
mirror of https://github.com/nasa/trick.git synced 2025-03-22 20:15:26 +00:00
Code Issues Actions 4 Packages Projects Releases Wiki Activity

Perl warning about unescaped left curly bracket

Browse Source 
Found the unescaped "{" and put a blashslash in front of them.

refs #213
This commit is contained in:
Alex Lin 2016-04-01 21:30:50 -04:00
parent b5b6dbe0bb
commit fb8a5f1d1d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libexec/trick/pm/get_lib_deps.pm
View File

@ -46,7 +46,7 @@ sub get_lib_deps ($$) {
foreach my $l (@lib_list) { foreach my $l (@lib_list) {
my $found = 0 ; my $found = 0 ;
$l =~ s/\(|\)|\s+//g ; $l =~ s/\(|\)|\s+//g ;
$l =~ s/\${(.+?)}/$ENV{$1}/eg ; $l =~ s/\$\{(.+?)\}/$ENV{$1}/eg ;
next if ( $l eq "" ) ; next if ( $l eq "" ) ;
if ( $l =~ /\.a$/ ) { if ( $l =~ /\.a$/ ) {

10
libexec/trick/pm/parse_s_define.pm
View File

@ -79,9 +79,9 @@ $vcollect_def = qr/
\s* \s*
(?:.*?) # Optional constructor (?:.*?) # Optional constructor
\s* \s*
{\s* # entry \{\s* # entry
(?:.*?) # item list (?:.*?) # item list
\s*}\s*; # end args \s*\}\s*; # end args
/sx ; /sx ;
$compiler_directive_def = qr/ $compiler_directive_def = qr/
@ -143,9 +143,9 @@ $job_class_order_def = qr/
/sx ; /sx ;
$user_code_def = qr/ $user_code_def = qr/
%{\s* %\{\s*
.*? .*?
%} %\}
/sx ; /sx ;
$user_header_def = qr/ $user_header_def = qr/
@ -461,7 +461,7 @@ sub handle_user_code ($$) {
trick_print($$sim_ref{fh}, "User code: $u\n" , "debug_white" , $$sim_ref{args}{v}); trick_print($$sim_ref{fh}, "User code: $u\n" , "debug_white" , $$sim_ref{args}{v});
$$sim_ref{line_num} += ($u =~ s/\n/\n/g) ; $$sim_ref{line_num} += ($u =~ s/\n/\n/g) ;
$u =~ s/^##/#/mg ; $u =~ s/^##/#/mg ;
$u =~ /%{(.*?)%}/s ; $u =~ /%\{(.*?)%\}/s ;
$u = $1 ; $u = $1 ;
$u =~ s/ZZZYYYXXX(\d+)ZZZYYYXXX//g ; $u =~ s/ZZZYYYXXX(\d+)ZZZYYYXXX//g ;
$$sim_ref{user_code} .= $u ; $$sim_ref{user_code} .= $u ;