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 | f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233 (patch) | |
| tree | 9abc27afbd30d6b6943e760d76790b02a244e6bf /perl_checker.src/lexer.mll | |
| parent | dffd700efe1911070c853790462b33a48a07eefd (diff) | |
| download | perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.tar perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.tar.gz perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.tar.bz2 perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.tar.xz perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.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/lexer.mll')
| -rw-r--r-- | perl_checker.src/lexer.mll | 4 |
1 files changed, 2 insertions, 2 deletions
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 |