ExternalVendorCode/trick
1
0
Fork 0
mirror of https://github.com/nasa/trick.git synced 2025-03-21 19:45:23 +00:00
Code Issues Actions 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) {
my $found = 0 ;
$l =~ s/\(|\)|\s+//g ;
$l =~ s/\${(.+?)}/$ENV{$1}/eg ;
$l =~ s/\$\{(.+?)\}/$ENV{$1}/eg ;
next if ( $l eq "" ) ;
if ( $l =~ /\.a$/ ) {

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

@ -79,9 +79,9 @@ $vcollect_def = qr/
\s*
(?:.*?) # Optional constructor
\s*
{\s* # entry
\{\s* # entry
(?:.*?) # item list
\s*}\s*; # end args
\s*\}\s*; # end args
/sx ;
$compiler_directive_def = qr/
@ -143,9 +143,9 @@ $job_class_order_def = qr/
/sx ;
$user_code_def = qr/
%{\s*
%\{\s*
.*?
%}
%\}
/sx ;
$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});
$$sim_ref{line_num} += ($u =~ s/\n/\n/g) ;
$u =~ s/^##/#/mg ;
$u =~ /%{(.*?)%}/s ;
$u =~ /%\{(.*?)%\}/s ;
$u = $1 ;
$u =~ s/ZZZYYYXXX(\d+)ZZZYYYXXX//g ;
$$sim_ref{user_code} .= $u ;