diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-28 10:37:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-28 10:37:20 +0000 |
| commit | 4e5aeb99ef98049d70e99519e2328d44d20f8186 (patch) | |
| tree | 54319fe3b8fc42d93fc946f7079adf9d46cc73fd /perl_checker.src | |
| parent | 201b4a45aaaff3df603e324f21a5285ae103e4ab (diff) | |
| download | perl_checker-4e5aeb99ef98049d70e99519e2328d44d20f8186.tar perl_checker-4e5aeb99ef98049d70e99519e2328d44d20f8186.tar.gz perl_checker-4e5aeb99ef98049d70e99519e2328d44d20f8186.tar.bz2 perl_checker-4e5aeb99ef98049d70e99519e2328d44d20f8186.tar.xz perl_checker-4e5aeb99ef98049d70e99519e2328d44d20f8186.zip | |
- perl_checker: add some more Gtk2 functions
- MDK::Common::File: mkdir_p, rm_rf and cp_af returns 1 on success
(allowing "eval { mkdir_p() } or ...")
Diffstat (limited to 'perl_checker.src')
| -rw-r--r-- | perl_checker.src/global_checks.ml | 2 | ||||
| -rw-r--r-- | perl_checker.src/lexer.mll | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/perl_checker.src/global_checks.ml b/perl_checker.src/global_checks.ml index 086d633..d74e96e 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -146,7 +146,7 @@ let is_global_var context ident = | "rand" | "read" | "readdir" | "readlink" | "redo" | "ref" | "rename" | "require" | "return" | "reverse" | "rindex" | "rmdir" | "scalar" | "seek" | "select" | "setpwent" | "shift" | "sleep" | "sort" | "splice" | "split" | "sprintf" | "stat" | "substr" | "symlink" | "syscall" | "sysopen" | "sysread" | "sysseek" | "system" | "syswrite" | "tie" | "time" - | "uc" | "ucfirst" | "umask" | "undef" | "unlink" | "unpack" | "unshift" | "utime" | "values" | "vec" | "waitpid" | "wantarray" | "warn" | "write" + | "uc" | "ucfirst" | "umask" | "undef" | "unlink" | "unpack" | "unshift" | "utime" | "values" | "vec" | "wait" | "waitpid" | "wantarray" | "warn" | "write" -> true | _ -> false) diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll index 430770f..424a422 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -777,7 +777,7 @@ and string_interpolate_array = parse | '{' [^ '{' '}']* '}' | (ident | (ident? ("::" ident)+)) { string_interpolate token "@" lexbuf } -| [ '@' '*' '<' '>' ']' '.' '('] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } +| [ '@' '*' '<' '>' ']' '.' '(' ' ' ] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | '"' { putback lexbuf 1; next_s "@" (Stack.pop next_rule) lexbuf } | eof { next_s "@" (Stack.pop next_rule) lexbuf } | _ { warn lexbuf (Printf.sprintf "weird \"%s\" in string" (lexeme lexbuf)); next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } @@ -787,7 +787,7 @@ and delimited_string_interpolate_array = parse | '{' [^ '{' '}']* '}' | (ident | (ident? ("::" ident)+)) { string_interpolate token "@" lexbuf } -| [ '@' '*' '<' '>' ']' '.' '('] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } +| [ '@' '*' '<' '>' ']' '.' '(' ' ' ] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | eof { next_s "@" (Stack.pop next_rule) lexbuf } | _ { let c = lexeme_char lexbuf 0 in |