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

3 files changed, 7 insertions, 2 deletions

diff --git a/embed.fnc b/embed.fnc
index d36e2fdc83..b11cd6efff 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1,3 +1,5 @@
+: BEGIN {die "You meant to run embed.pl"} # Stop early if fed to perl.
+:
 : Lines are of the form:
 :    flags|return_type|function_name|arg1|arg2|...|argN
 :
diff --git a/t/op/re_tests b/t/op/re_tests
index 87a3e50285..c2397e68b6 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -1,3 +1,6 @@
+# This stops me getting screenfulls of syntax errors every time I accidentally
+# run this file via a shell glob
+__END__
 abc	abc	y	$&	abc
 abc	abc	y	$-[0]	0
 abc	abc	y	$+[0]	3
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;