From e34793c35e7356fc73719b69e01ffba876af8615 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 21 Jun 2006 14:56:54 +0000
Subject: handle $o->pop

---
 perl_checker.src/parser.mly | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl_checker.src')

diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly
index e44bcf1..a9bf396 100644
--- a/perl_checker.src/parser.mly
+++ b/perl_checker.src/parser.mly
@@ -473,6 +473,7 @@ word_or_scalar:
 | word_paren {$1}
 | MULT_L_STR { new_1esp (Ident(None, "x", get_pos $1)) $1 }
 | FOR { new_1esp (Ident(None, $1.any, get_pos $1)) $1 }
+| ONE_SCALAR_PARA { new_1esp (Ident(None, $1.any, get_pos $1)) $1 }
 
 bareword:
 | NEW { new_1esp (Ident(None, "new", get_pos $1)) $1 }
-- 
cgit v1.2.1