--- scripts.orig        2008-03-17 13:24:22.000000000 +0000
+++ scripts     2008-03-17 13:24:56.000000000 +0000
@@ -742,7 +742,7 @@
        next if /^#/o;
        next if /^$/o;
         last if (++$i > 20);
-        if (/(^\s*|\beval\s*\'|;\s*)exec\s*.+\s*.?\$0.?\s*(--\s*)?(\${1:?\+)?.?\$(\@|\*)/o) {
+        if (/(^\s*|\beval\s*\'|;\s*)exec\s*.+\s*.?\$0.?\s*(--\s*)?.?(\${1:?\+)?\$(\@|\*)/o) {
             $ret = 1;
             last;
         }