From 431db26a9d138a21e17caf3affe5d2131387b69f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 26 Nov 2002 00:37:30 +0000
Subject: *** empty log message ***

---
 perl_checker.src/lexer.mll | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl_checker.src/lexer.mll')

diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll
index bf344a4..cfd7af9 100644
--- a/perl_checker.src/lexer.mll
+++ b/perl_checker.src/lexer.mll
@@ -418,11 +418,11 @@ rule token = parse
 | "split"
 | "grep"  { (* ok_for_match! *) BAREWORD(lexeme lexbuf, pos lexbuf) }
 
-| "print " ['A'-'Z'] ['A'-'Z' '0'-'9']* ' ' { 
+| "print " ['A'-'Z'] ['A'-'Z' '0'-'9']* ['\n' ' '] { 
     putback lexbuf 1;
     PRINT_TO_STAR(skip_n_char 6 (lexeme lexbuf), pos lexbuf)
   }
-| "print $" ident ' ' { 
+| "print $" ident ['\n' ' '] { 
     putback lexbuf 1; 
     PRINT_TO_SCALAR(skip_n_char 7 (lexeme lexbuf), pos lexbuf);
   }
-- 
cgit v1.2.1