Protect me (and my fellow muppets) from screens of "syntax errors" if

one accidentally feeds embed.fnc or t/op/re_tests to the perl
interpreter.

p4raw-id: //depot/perl@32839

1 files changed, 2 insertions, 2 deletions

diff --git a/t/op/regexp.t b/t/op/regexp.t
index 7ad7d89bc9..8a13dd2158 100755
--- a/t/op/regexp.t
+++ b/t/op/regexp.t
@@ -77,9 +77,9 @@ my $test;
 TEST:
 foreach (@tests) {
     $test++;
-    if (!/\S/ || /^\s*#/) {
+    if (!/\S/ || /^\s*#/ || /^__END__$/) {
         print "ok $test # (Blank line or comment)\n";
-        if (/\S/) { print $_ };
+        if (/#/) { print $_ };
         next;
     }
     chomp;