warn about =, |, & in the expression parser, they are a syntax error

1 files changed, 3 insertions, 0 deletions

diff --git a/Build/Rpm.pm b/Build/Rpm.pm
index 1f775b3..c692ac4 100644
--- a/Build/Rpm.pm
+++ b/Build/Rpm.pm
@@ -108,6 +108,9 @@ sub expr {
       ($v2, $expr) = expr(substr($expr, 1), 4);
       return undef unless defined $v2 && 0 + $v2;
       $v /= $v2;
+    } elsif ($expr =~ /^([=&|])/) {
+      warn("syntax error while parsing $1$1\n");
+      return ($v, $expr);
     } else {
       return ($v, $expr);
     }