Author: Pascal "Pixel" Rigaux

Perl5Parser/Expr.hs

@@ -65,7 +65,8 @@ fmap_maybe _ Nothing = return Nothing
 fmap_maybe f (Just e) = fmap Just (f e)
 
 op = toList . operator_node
-operator' s = if isWordAny (last s) then symbol_node s else try $ operator_node s
+operator' s = if s == "x" then fmap Tokens (pcons (fmap Symbol (string s)) spaces_comments)
+              else if isWordAny (last s) then symbol_node s else try $ operator_node s
 operator_to_parser (i, prio, op) = fmap (\s -> (i, prio, (s,op))) (operator' op)
 
 data ZZ = ZZ { z_op :: NodeName

test.hs

@@ -147,6 +147,7 @@ ok_exprs = [
            , ("return ($v)[$w]", "return (($v)[$w])")
            , ("return <F>", "return <F>")
            , ("foo.bar", "foo.bar")
+           , ("0 x2", "0 x2")
            -- complex ?: calls
            , ("($v ? N() . '; ' . N() . ': ' . $w : N())", "($v ? ((((N() ). '; ' ). ((N() ). ': ' )). $w ): (N()))")
            , ("$a = 0 || !1 ? 2 : 3", "$a = ((0 || (!1 ))? 2 : 3)")