--- ./t/op/regexp_noamp.t.orig	Fri Nov 14 18:38:50 1997
+++ ./t/op/regexp_noamp.t	Fri Nov 14 18:38:50 1997
@@ -0,0 +1,10 @@
+#!./perl
+
+$skip_amp = 1;
+for $file ('op/regexp.t', 't/op/regexp.t') {
+  if (-r $file) {
+    do $file;
+    exit;
+  }
+}
+die "Cannot find op/regexp.t or t/op/regexp.t\n";
--- ./MANIFEST.orig	Thu Nov 13 09:57:46 1997
+++ ./MANIFEST	Fri Nov 14 18:35:12 1997
@@ -773,6 +773,7 @@ t/op/readdir.t		See if readdir() works
 t/op/recurse.t		See if deep recursion works
 t/op/ref.t		See if refs and objects work
 t/op/regexp.t		See if regular expressions work
+t/op/regexp_noamp.t	See if regular expressions work with optimizations
 t/op/repeat.t		See if x operator works
 t/op/runlevel.t		See if die() works from perl_call_*()
 t/op/sleep.t		See if sleep works
