diff --git a/build-compare.changes b/build-compare.changes
index 60a0b5d..12ffd25 100644
--- a/build-compare.changes
+++ b/build-compare.changes
@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Tue Mar 15 08:36:26 UTC 2011 - aj@suse.de
+
+- Use perl -e instead of -E (bnc#679562).
+
 -------------------------------------------------------------------
 Mon Feb 28 14:00:35 UTC 2011 - aj@suse.de
 
diff --git a/rpm-check.sh b/rpm-check.sh
index c3ba7ba..f0f8c91 100644
--- a/rpm-check.sh
+++ b/rpm-check.sh
@@ -1,6 +1,6 @@
 #! /bin/bash
 #
-# Copyright (c) 2009, 2010 SUSE Linux Product GmbH, Germany.
+# Copyright (c) 2009, 2010, 2011 SUSE Linux Product GmbH, Germany.
 # Licensed under GPL v2, see COPYING file for details.
 #
 # Written by Michael Matz and Stephan Coolo
@@ -219,8 +219,8 @@ check_single_file()
        done
        return $ret;;
      *.pyc|*.pyo)
-        perl -E "open fh, '+<', 'old/$file'; seek fh, 3, SEEK_SET; print fh '0000';"
-        perl -E "open fh, '+<', 'new/$file'; seek fh, 3, SEEK_SET; print fh '0000';"
+        perl -e "open fh, '+<', 'old/$file'; seek fh, 3, SEEK_SET; print fh '0000';"
+        perl -e "open fh, '+<', 'new/$file'; seek fh, 3, SEEK_SET; print fh '0000';"
         ;;
      *.bz2)
         bunzip2 -c old/$file > old/${file/.bz2/}